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ABSTRACT 

This document presents the rationale and procedures used in the radiometric 
calibration and correction of Heat Capacity Mapping Mission (HCMM) data. 

Instrument-level testing and calibration of the Heat Capacity Mapping Radiometer 
(HCMR) were performed by the sensor contractor ITT Aerospace/Optical Division. 

The principal results are included in this document. From the instrumental 
characteristics and calibration data obtained during ITT acceptance tests, an 
algo'dthm for post-launch processing was developed. 

Integrated spacecraft-level sensor calibration was performed at Goddard Space Flight 
Center (GSFC) approximately 2 months before launch. This calibration provided an 
opportunity to validate the data calibration algorithm. Instrumental parameters and 
results of the validation are presented in this document In addition, the performances 
of flie instixunent and the data system after launch are examined with respect to the 
radiometric results. Anomalies and their consequences are discussed. Flight data 
indicated a loss in sensor sensitivi^ with time. The loss was shown to be recoverable 
by an outgassing procedure performed approximately 65 days after the infrared channel 
was turned on. It is planned to repeat tills procedure periodically. 

*This work performed while affiliated with Computer Sciences Corporation. 
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Results of comparisons between satellite measurements and surface measurements 
taken at White Sands, New Mexico, are also presented. Surface IR measurements are 
approximately 6 degrees Kelvin higher than satellite measurements. Due to a lack of 
alternative solution, the calibrated data were offset to ensure agreement with surface 
measurements. The validity of this change will be verified by comparing the data with 
the surface values obtained by various experimenters and from additional White Sands 
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SECTION 1 - INTRODUCTION 


1.1 BACKGROUND 

The Heat Capacity Mapping Mission (HCMM) is the first of a series of scheduled 
missions to support the Applications Explorer Mission (AEM) project and has 
been designated AEM-A. The AEM-A spacecraft carries a Heat Capacity Map- 
ping Radiometer (HCMR) instrument designed to monitor infrared radiation 
from the Earth in two spectral bands. The spacecraft is composed of two dis- 
tinct modules: (1) the base module, which contains the attitude control, power, 
and data handling equipment (except for science sensor equipment), and (2) the 
instrument module, which contains the HCMR and its supporting electronics, 
structure, and thermal control. 

In April 1978, the AEM-A spacecraft was launched and injected into a near- 
Earth, 600-kilometer, circular. Sun-synchronous orbit with a nominal 2 p. m. 
ascending node and a 97. 79-degree inclination. The expected scientific lifetime 
of the spacecraft is 1 year from launch. HCMM is a real-time-only mission. 
Science data, consisting of data from two analog radiometer channels, are 
subcarrier-multiplexed on a real-time S-band link. Housekeeping data, Includ- 
ing attitude and some radiometer calibration data, are formatted into biphase 
pulse code modulation (PCM) and transmitted on a very-high-frequency (VHP) 
link. These PCM data are also transmitted on a subcarrier of the S-band link. 
Subcarrier assignments for the link are as follows: 

• 800 kilohertz: HCMB thermal channel 

e 480 kilohertz: HCMR visible channel 

e 70 kilohertz: spacecraft PCM 

1.2 HCMB 

The HCMB is a two-ohonnel scanning/bnoging radiometer. The two channels 
contain the spectral intervals of 0.65 to 1. 1 microns and 10. 6 to 12. 5 microns 
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and share a common collecting optical system having an Instantaneous field of 
view of 0. 83 ± 0. 17 milliradian. Table 1-1 describes HCMR system charac- 
teristics. Figures 1-1 and 1-2 show the locations of the pertinent features of 
the HCMR. 

Figure 1-3 is a simplified block diagram of the HCMR electronics. The HCMR 
electronics transmits to the spacecraft two channels of video data synchronized 
with the spacecraft clock and the rotation of the HCMR scan mirror. The input 
signals to the HCMR are the spacecraft +28. 0-volts-direct-current (VDC) bus; 
clock signals of 70 kilohertz, 14 kilohertz, and 560 hertz two-phase; and space- 
craft commands to the HCMR to implement the available modes of operation. 

Tlie HCMR electronics provides power conversion, timing and control, signal 
generation, digital and analog telemetry for verification of operation, and sig- 
nal amplification for required operation. 

The basic blocks of the HCMR electronics are as follows: 

1. Infrared data amplifiers 

2. Visible data amplifiers 

3. Power converter 

4. Voltage regulators 

5. Timing and control circuits 

6. Calibration signal generation circuits 

7. Analog telemetry circuits 

8. Command and digital telemetry circuits 

The HCMR scan sequence, angular representations for various quantitites, and 
the corresponding times are provided in Figures 1-4 and 1-5. Table 1-2 pro- 
vides digital and analog telemetry listings. 

1.3 DOCUMENT OVERVIEW 

Section 2 of this document presents instrumental parameters and calibration 
data from ITT Aerospace acceptance tests. Only those results that pertain to 
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Table 1-1. HCMH System Characteristics (1 of 2) 


DESIGN PARAMETERS 


WAVELENGTH BAND AT HALF-POWER POINTS 
FIELD OF VIEW 

GROUND RESOLUTION (SUBSATELLITE POINT AT 
600 KILOMETERS) 

OPTICAL SPEED 

COLLECTING APERTURE DIAMETER 
DETECTOR TYPE 
OPERATING TEMPERATURE 
SCAN RATE 

INFORMATION BANDWIDTH 
DYNAMIC RANGE 
CHANNEL 2 
CHANNEL 1 


0.65 TO 1.1 MICRONS, 10.5 TO 12.5 MICRONS 
0.83 MILLIRADIAN 


0.5 KILOMETER 


8.0 INCHES 
HgCdTt-SILICON 

115 DEGREES KELVIN (K) (AMBIENT) 

14.0 REVOLUTIONS PER SECOND 

53.0 KILOHERTZ 

260 TO 340 DEGREES K 
0- TO 100-PERCENT ALBEDO 


PERFORMANCE CHARACTERISTICS 


NOISE EQUIVALENT TEMPERATURE DIFFERENCE 
(NETD) (CHANNEL 2) 

SI0NAL-TO440ISE RATIO (CHANNEL 1) 


0.3 DEGREE K AT 280 DEGREES K 
10 AT 1.0-PERCENT ALBEDO 


PHYSICAL CHARACTERISTICS 


WEIGHT 


POWER (HIGH-LOW) 


53.S POUNDS 

22 BY 12 BY 17 INCHES 

24.0 WATTS-21 .0 WATTS 


OPTICAL PARAMETERS 


INSTANTANEOUS FIELD OF VIEW 
TELESCOPE 
TYPE 

CLEAR APERTURE DIAMETER 
F-NUMBER (PRIMARY) 

EXIT BEAM DIAMETER 
MIRROR SUBSTRATE MATERIAL 
PRIMARY-SECONDARY SPACER MATERIAL 
COATING 


SQUARE. 0J3 MILLIRADIAN ON AN EDGE 


AFOCAL DALL-KIRKAM 
$M INCHES 
OM 

too INCH 

CERVIT 

INVAR 

ALUMINIZED WITH KANIGEN PROCESBINO 
COATING 


SYSTEM OPTICAL PARAMETERS, NEAR-INFRARED 
CHANNEL 

RELAY 

EFFECTIVE SYSTEM FOCAL LENGTH 


AIRSPACE TRIPLET; 32-MILLIMETER 
FOCAL LENGTH 
2SS.0 MILLIMETERS 
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Table 1-1. HCMB System Characteristics (2 of 2) 


PARAMETER 

VALUE/DESCRIPTION 

OPTICAL PARAMETERS (CONT’OI j 

FAI UMBER* 

1.26 

FIELD STOP EDGE WIDTH 

0.0064 INCH 

DIAMETER OF BLUR SPOT, ON AXIS 

0.(X)16 INCH** 

DIAMETER OF BLUR SPOT, FIELD CORNER 
MODULAR TR .NSFER FUNCTION (ON AXIS) 

0.0023 INCH^* 

AT THREE LINE PAIRS PER MILLIMETER 
MODULAR TRANSFER FUNCTION (FIELD) 

9B.3 PERCENT 

CORNER) AT THREE LINE PAIRS PER MILLI- 
METER 

9Q.2 PERCENT 

FOCUS ADJUSTMENT 

t0.0326 INCH 

CLEAR APERTURE 

S46 INCHES*^ 

SYSTEM OPTICAL PARAMETERS, FAR INFRARED 


CHANNEL 


RELAY 

SINGLE GERMANIUM FOCUS LENS WITH 
GERMANILWI APLANAT LENS; 23.776-MILLI- 
METE^'' FOCAL LENGTH 

EFFECTIVE SYSTEM FOCAL LENGTH 

190^ MILLIMETERS 

FIELD STOP EDGE WIDTH 

0.0062 INCH 

F-N UMBER 


DIAMETER OF BLUR SPOT, ON AXIS 

0.0012 INCH^ 

0IAME1ER OF BLUR SFOT, FIELD CORNER 
MODULAR TRANSFER FUNCTION (ON AXIS) 

a0042 ircH^ 

AT 34 LINE FAIRS FIR MILLIMETER 
MODULAR TRANSFER FUNCTION (FIELD 

96.0 PERCENT 

CORNER) AT 3J LINE FAIRS PER MILU- 
METER 

96.S PERCENT 

FOCUS ADJUSTMENT (AIR SPACE BETWEEN 


FOCUS LENS AND APLANAT) 

1 0.141 INCH 

CLEAR APERATURE 

9 INCHES 


V-NUIMtR DEFINED AS EFFECTIVE FOCAL LENOTH DIVIDED EV CLEAR AFERTURE DIAMETER 
^^OR VECTRAL SAND FROM OjIO T0 1.10 MICROMETERS AND 10O#ERCENT ENUROV 
\lMITEO SV SIZE OF RELAY LENS; COULD NOT BE CHANGED WITHOUT EXTENSIVE REDESIGN 
^FOR 100AERCENT ENERGY 
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Figure 1-1. HCMR Pertinent Features (Front View) 
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Figure 1-3. HCMR Functional Block Diagram 
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REFERENCE 

LETTER 

ANGLE 

(DEGREES) 

TIME 

(m$) 

EVENT 

A 

0 

0 

BEGIN SYNC PULSE #1 

B 

3.6 

0.714 

END SYNC PULSE #1 

C 

21.6 

4.28 

BkGIN INPUT CALIBRATION 

D 

34.2 

6.79 

END INPUT CALIBRATION 

E 

42.9 

8.51 

BEGIN EARTH SCAN 

F 

109 

21.63 

NADIR 

G 

175.1 

34.74 

END EARTH SCAN 

H 

189 

37.5 

BEGIN OUTPUT CALIBRATION 

1 

239.4 

47.5 

END OUTPUT CALIBRATION 

J 

270.4 

53.66 

BEGIN INTERNAL TARGET VIEW 

K 

278.3 

55.22 

COMPLETE INTERNAL TARGET VIEW 

L 

304.2 

60.36 

BEGIN INTERNAL TARGET 
TEMPERATURE TELEMETRY 

M 

311.4 

61.78 

END INTERNAL TARGET 
TEMPERATURE TELEMETRY 

H 

318.6 

63.21 

BEGIN SYNC PULSE #2 

0 

325.8 

64.64 

END SYNC PULSE #2 

P 

333.0 

66.07 

BEGIN PRECURSOR BURST 

Q 

351.0 

69.64 

END PRECURSOR BURST 


Figure 1-4. HCMR Scan Sequence 
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Table 1-2. HCMR Telemetry list 


FUNCTION 

SAMPLE RATE 
(PER SECOND) 

ANALOG TELEMETRY 

+15-VOLT MONITOR 

1 

+5-VOLT MONITOR 

1 

-15-VOLT MONITOR 

1 

TELEMETRY POWER 

1 

MOTOR DRIVE CURRENT 

1 

CONE COVER POSITION 

1 

ELECTRONICS TEMPERATURE 

1/8 

BASEPLATE TEMPERATURE 

1/8 

CONE TEMPERATURE 

1/8 

PATCH TEMPERATURE 

1 

BLACKBOOY TEMPERATURE 1 

1 

BLACKBOOY TEMPERATURE 2 

1 

PURGE PRESSURE 

1 

CONE WALL HOUSING TEMPERATURE 

1/8 

PATCH POWER 

1 

ELECTRONICS CURRENT 

1 

OFFSET VOLTAGE 

1 

MOMENTUM COMPENSATOR SPEED 

1 

SCAN MOTOR SPEED 

1 

MOTOR HOUSING TEMPERATURE 

1/8 

DIGITAL TELEMETRY 

MOTOR STATUS 

1 

electronics STATUS 

1 

MOTOR POWER STATUS 

1 

PATCH HEATER STATUS 

1 

CONE HEATER STATUS 1 

1 

PURGE VALVE STATUS 

1 

CONE COVER STATUS 2 

1 
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the radiometric calibration and correction of HCMM data are included. Sec- 
tion 3 contains a review of the entire HCMM primary processing scheme and 
describes the basis and development of the HCMM radiometric correction algo- 
rithm. Section 4 presents the results from the integrated spacecraft calibration 
performed at Goddard Space Flight Center (GSFC). Data taken during this cali- 
bration were used to validate the algorithm developed earlier. Results of this 
validation are also included in Section 4. Section 5 examines the performance 
of the instrument and the data system after launch with respect to the radio- 
metric results. Anomalies and their consequences discovered in the perfonn- 
ance of the sensor are discussed. Results of comparisons between satellite 
and ground measurements taken at White Sands, New Mexico, are also pre- 
sented. 



SECTION 2 - INSTRUMENTAL PARAMETERS AND CALIBRATION 
DATA FROM ITT ACCEPTANCE TESTS 


The final performance characteristics of the HCMR were determined by ITT 
Aerospace, the instrument manufacturer, in a series of tests conducted at the 
ITT facility as part of the acceptance procedures. The test results and sup- 
plemental information on the HCMR were presented in two reports by ITT 
(References 1 and 2). Because the algorithm developed for interpreting the 
data was a function of the particular characteristics of the instrument, it is 
necessary to refer to these data frequently. To facilitate this, many of the re- 
sults and calibrations presented by ITT are reproduced in this section as a 
reference soiirce for following sections. Because this document deals pri- 
marily with the radiometric calibration, only those results pertinent to a radi- 
ometric evaluation of the data are presented. Additional information may be 
found in the original documents (References 1 and 2). 

2. 1 TELEMETRY AND ELECTRONIC PERFORMANCE 

Table 2-1 lists all of the analog telemetry parameters associated with the HCMR 
and presents measured values of these parameters as functions of baseplate 
temperature covering the test range of 5 degrees Celsius (C) to 40 degrees C. 

Table 2-2 records the measured voltages for the input and output calibration 
steps for both channels as functions of baseplate temperature. 

Table 2-3 lists the measured values of the noise equivalent temperature (NEAT) 
in the infrared channel and the signal-to-noise ratio in the visible channel at 
selected base{date temperatures. 

2.2 VISIBLE CHANNEL DATA 

Table 2-4 lists tiie measured spectral data for the various optical components 
of the visihle/near-lnfrared channel. 



Table 2-1. Analog Telemetry Data 
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Table 2-2. HCMR Calibration Steps 


STEP 

NUMBER 


BASEPLATE TEMPERATURE (DEGREES C» 


+ 10 

+ 15 

+20 

+25 

+30 

+35 


NEAR-INFRARED INPUT (VOLTS) 


0.002 

- 0.002 

0.001 

0.007 

1.006 

0.997 

1.001 

1 . 00C 

1.986 

1.976 

1.979 

1.986 

2.989 

2.960 

2.983 

2.939 

3.967 

3.958 

3.961 

3.967 

4.983 

4.974 

4.977 

4.984 

5.962 

5.962 

5.953 

5.962 


NEAR-INFRARED OUTPUT (VOLTS) 


0,011 

0.002 

0.006 

0.006 

0.002 

0.008 

0.006 

0.978 

0.969 

0.969 

0.970 

0.969 

0.969 

0.969 

1.976 

1.967 

1.972 

1.969 

1.966 

1.970 

1.9667 

2.951 

2.947 

2.948 

2.947 

2.945 

2.947 

2.945 

3.958 

3.954 

3.954 

3.956 

3.952 

3.952 

3.954 

4.934 

4.929 

4.928 

4.929 

4.926 

4.929 

4.927 

5,928 

5.926 

5.924 

5.922 

5.923 

5.925 

5.923 


INFRARED INPUT (VOLTS) 


5.778 


INFRARED OUTPUT (VOLTS) 


0.007 

0.010 



1.964 

1.962 


4.819 

4.921 

5.916 

B .914 


0.101 

0.098 

1.060 

1.053 

1.991 

1.988 


0.008 

0.007 

0.010 

0.969 

0.966 
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1.960 

2.936 

3.944 

2.936 

3.942 


4.917 

4.919 

4.914 

5.912 

5.913 

5.910 





































































Figure 2-1 shows the relative spectral response of the HCMR detector for 
channel 1. 

Table 2-5 presents the results of the visible channel calibration in units of 
equivalent albedo. The albedo has been adjusted to account for differences in 
brightness temperature between the calibration target and <-he solar spectrum 
by normalizing solar spectrum. Figure 2-2 presents these data in a graphical 
format. 

2.3 INFRARED CHANNEL DATA 

Table 2-6 lists the measured spectral data for the various optical components 
in the spectral range of the infrared channel.. 

Figure 2-3 is a plot of the relative spectral response of the HgCdTe detector 
at 11.5 degrees K. Figure 2-4 Is a plot of the transmission characteristics of 
the germanium band pass filter used with this detector. Figure 2-5 is a plot 
of the total relative response of the infztured channel. 

Table 2-7 lists the calibration results for the infrared channel with 17 scene 
temperatures and 10 baseplate temperatures. Figure 2-6 shows the family of 
curves obtained by plotting the calibration values of Table 2-7. 

Figure 2-7 is a plot of the difference between the blackbody temperature as in- 
dicated by the thermistors in channel 2 and the temperature obtained from the 
blackbody located in the backscan position of the radiometer. This quantity, 

AT - , is assumed to be the result of a thermal gradient between the thermal 
SB 

location on the backstructure of the reference blackbody and the radiating sur- 
face of this bla c kbody. It should be noted that this thermal gradient, AT-_, 
will remain as presented in Figure 2-7 unless the thermal environment of the 
instrument ohanges. Thus the preflic^ values will be the proper values for 
postlliidd processing if the space environment has been properly simulated in 
fiiese thermal-vacuum tests. 
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Table 2-5 


Near-Intrared Calibration 


NUMBER OF 
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NEAR. INFRARED 
OUTPUT 
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8 
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6.0890 

7 

89.3 
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6 

76.2 
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5 

63.6 

3.7870 

4 

51 4 

3.0438 

3 

38.1 

2.2546 

2 

25.1 

1.4869 

1 

12.3 

0.7235 

0 

0 

0.0194 


‘GSFC 30-inch integration sphere number 61400-6-7 
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Figure 2-2. Near-Infrared Calibration 





Table 2-6. HCMR Spectral Response Parameters, Infrared Chaimel 
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Table 2-7. Infrared Analog Calibration Data (2 of 2) 
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SCENE TEMPERAidRE (DEGREES KELVIN) 

Figure 2-6. Family of Curves Obtained by Plotting Calibration 
Values of Table 2-7 
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2.4 OPTICAL REGISTRATION DATA 


Table 2-8 presents the instantaneous field of view (IFOV), the channel registra 
tion, and the system modular transfer function (MTF) for both channels for 
three baseplate temperatures. 


HCMR IFOV and Beglstration Data 
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SECTION 3 - DATA PROCKSSING ALGORITHM FOR RADIOMETRIC 
CALIBRATION AND CORRECTION 


3.1 FUNCTIONAL DESCRIPTION OF HCMM PRIMARY DATA PROCESSING 

To understand the context in which the radiometric calibration and correction 
is performed, it is useful to review the entire HCMM primary processing 
scheme. The two data channels from the experiment are transmitted to the 
ground as analog signals multiplexed on the 2248. 0- megahertz S-band link. 

The PCM housekeeping telemetry stream is also multiplexed on this data link. 
To make the data available for the extensive digital processing that it will 
eventually undergo, a significant amount of preprocessing is required. Apiart 
from the original reception of the data and its recording, most of this preproc- 
essing is performed in a special-purpose system developed to handle the data 
stream. 

The specific functions performed by the preprocessor are the demultiplexing 
of the composite video that has been received and recorded at the ground sta- 
tion, a scan line synchronization of both the visible and infrared scan lines, 
and an analog-to-digitsi conversion of each of the two scan lines at 125 kilo- 
hertz. Because not all of the scan line is used in later processing, the pre- 
processor selectively extracts for digitization only those portions of the scan 
line that will be later processed. Because the housekeeping telemetry is 
processed as part of die VHP link, this processing is not duplicated for the 
S-band link. Several housekeeping parameters do affect the radiometric cali- 
bration; these parameters are extracted from the PCM contained on the com- 
posite video and are processed and included with the channel 1 and channel 2 
digitized output. The primary ou^t of the preprocessor, then, is a high- 
density tape that will be used as an input to the second step; this tape contains 
the digitized data from channel 1 and channel 2 as well as selected housekeeping 
parameters. In addition, this preprocessing phase produces statistics and 
hardcopies of selected image data for quick-locrit assessment* 
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The second phase of the processing, which is performed on the Master Data 
Processor (MDP), accepts the output high-density tape from the preprocessor, 
computes radiometric calibration coefficients, and radicmetrically corrects 
the data, Ine MDP then computes geometric correction coefficients, geo- 
metrically corrects the data, frames the input data into approximately 
700-kilometer-by-700 -kilometer frames, and generates the necessary annota- 
tion. finally the MDP produces a fully corrected archival high-density tape. 
Further processing of the data (e.g. , for night/day registration) is performed 
on a selected basis by other systems. The radiometric correction discussed 
in detail in this section is one of the two corrections applied in the main proc- 
essing cycle. 

3.2 BASIS OF HCMR RADIOMETRIC CORRECTION ALGORITHM 

The calibration procedure described here has the specific purpose ~>f accepting 
the digitized radiometer scan data developed by the preprocessor and converting 
them to values that can be directly interpreted as measurements of scientifically 
significant parameters such as radiance and brightness temperature. 

The input to this processing step received from the preprocessor consists of 
three separate sets of data: 

1. Instrument data from channel 1 (visible/near lr.fr&red, 0. 5 to 
1. 1 micrometers) 

2. Instrument data from channel 2 (Infrared, 10. 5 to 12. 5 micrometers) 

3. Selected housekeeping parameters 

The two data channels each produce a full scan every 1/14 second, whereas 
housekeeping returns instrumental parameters only once every 1 to 8 seconds 
when in the orbital mode. Housekeeping dsta used in the reduction of the data 
channels will be processed <m a currently available basis. 



The instrument data channels contain two types of information; primary scan 
data and calibration and performance data. Because the calibration and house- 
keeping data are relatively stable, an averaging scheme is employed to minimize 
random noise in these parameters. Because of the possibility of scan-to-scan 
bounce, however, the averaging scheme will allow averaging over a requested 
number of scans (N). If N is set to 1, no averaging is performed. 

The radiometric calibration of the HCMR is predicated on the following assump- 
tions: 

1. The response of the instrument will be as detailed in the system 
calibration data presented in Reference 1, with the appropriate modifications 
obtained from the system thermal-vacuum testing and the in-flight calibration 
data. The system performance during the ITT acceptance testing and calibra- 
tion will be regarded as nominal, and the calibration values recorded in the 
supporting documents will be accepted as the nominal values for the mission. 

2. The onboard electronic calibration sequence will be used to cali- 
brate current instrument voltages, and the voltage levels of the calibration 
staircase will be assumed to remain at their nominal values during the mission. 

3. A cubic expression may be used to transform current instrumeut 
voltages to calibrated values. 

4. The near-linear character of the voltage response of the infrared 
detector with respect to radiant energy input, as indicated in the acceptance 
calibration, will persist throughout the mission even if the sensitivity of the 
detector should change. 

5. For the visible channel (channel 1), because no in-flight calibration 
is performed, the preflig^t calibration will not change during the mission. 
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The space clamp will maintain the output voltage at zero volts for 

the visible channel and minus the offset bias voltage (V ) for the infrared 

Orr 

channel when the radiometer has the near-zero radiance input of space. (The 
”^OFF range for the telemetry data and will be represented 

by the limiting value of zero volts. ) 

7. For the infrared channel (channel 2), the offset bias voltage (V ) 

OJc r 

applied to the output to maintain the proper range will be proportional to the 
monitored supply voltage and is not expected *x) change during the mission. 

8. The response of the thermistors and the emissivily of the internal 
calibration blacld>ody will not change from nominal during the mission. In addi- 
tion, the thermal characteristics of the calibration blackbody will not change 
from nominal unless the instrumental environment changes and independent data 
confirms that such a change has occurred. 

9. The internal calibration blackbody will be used to verify the nominal 
calibration for the infrared channel (channel 2) as well as to modify the nominal 
calibration as necessary. Should the blackbody temperature derived from the 
thermistor measurements be significantly different from that obtained from the 
radiometer with the nominal calibration, however, ^n unanticipated system 
change would be indicated, and the calibration would be subject to reexamination 
and possible modification using other data such as ground truth measurements. 

The validity of these assumptions will be continuously verified to some extent 
by the calibraticm program itself so that remedial procedures can be deter- 
mined and implemented as the need arises. 

Preflight constants for HCMM radiometric calibration are presented in 
Table 3-1. 
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Table 3-1. Preflight Constants for HCMM Radiometric Calibration 



*THESE QUANTITIES ARE SPECIFIED IN REFERENCE 4. 


















3.3 MASTER OUTPUT TABLE CONCEPT 


Because of system limitations such as instrumental precision and the proc- 
essing characteristics of the data handling system, both the input and the out- 
put of the calibration process will be contained in an eight-bit word. To 
properly represent the physical quantities that are being sought, master output 
tables will be used in which appropriate values in radiance units as well as 
equivalent blacldbody temperature and normalized albedo will be listed. These 
tables are generated so that they include the range of values the instrument is 
to measure with a maximum increment between successive values that are less 
than or equal to the system precision. Because these tables need only be up- 
dated if profound changes occur in the instrumental characteristics, they are 
expected to remain fixed during the entire mission. The scan data calibration, 
then, consists of transforming the counts digitized from the video data stream 
for both channels 1 and 2 to indices for the master calibration tables, thus 
eliminating the necessity of several repeated calcmlations. The eig^it-bit for- 
mat dictates that the table will have 256 entries. 

For the visible channel (channel 1), one table will give the normalized albedo 
for each of the 256 outputs covering the range of the instrument. The albedo 
entries will extend from 0.00 to 1. 00 and will represent the ratio of the ra- 
diance values measured to the radiance expected from a perfectly reflecting ‘ 
Lambertian surface illuminated by the Sun at vertical incidence. The table 
entries will be uniformly distributed in albedo. A secondary table will provide 
the equivalent radiance for each of the albedo values. 

For the infirared channel (channel 2), there will be two tables, the first repre- 
senting the equivalent blackbo4y temperature and the second giving the radiance 
values as determined by the Planck function. Because of the channel's near- 
llnearitv, the 256 values will be approximately uniformly distributed in radiance 
with the corresponding nonuniform distribution for the temperature table. The 


1^1 
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limits for both tables will be set by the condition that the extreme values for 
the equivalent blackbody temperature table will be 260 degrees K and 340 de- 
grees K. 

Once the master calibration tables are completely defined, they will not be 
changed during the mission unless profound and currently unexpected changes 
occur in the system. Expressions for evaluating all table entries for both 
visible and infrared channels will be presented in a subsequent subsection. 

3.4 HOUSEKEEPING DATA EXTRACTION 

All of the instrumental housekeeping parameters available are listed in 

Table 1-2; the nominal values for the analog parameters are summarized in 

Table 2-1. These data are normally processed with the oLher housekeeping 

telemetry. The following four parameters, however, are required for the 

radiometric calibration procedure and are directly extracted by the preproc- i 

essors: 

• T _ (baseplate temperature) 

ay , 

• T (blackbody temperature 1) 

15x51 I 

• ^3B2 (blackbody temperature 2) i 

• ^OFFS (offset voltage supply) | 

The first three temperatures (T^_, T__,, T_„_) are obtained from the corre- • , 

sponding telemetry voltage values (V^j^) by the relation ’ > 

I 

j 

f 

The offset supply voltage (^Q^pg) uses the relation 
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Because all of these parameters are expected to be quite stable physically, an 
exp.-onentially decaying averaging process will be applied to eliminate noise 
from these observations. Any dramatic change in these parameters in flight 
should be regarded with great concern, because it may significantly affect the 
processing algorithm. 

3.5 SCAN DATA CALIBRATION 

The primary instrument data are transmitted from the spacecraft as two 
analog signals multiplexed on a signal subcarrier. The scan rate is 14 lines 
per second with both the visible (channel 1) and the infrared (channel 2) syn- 
chronized to the scan mirror. The data scan format is nearly identical for 
both channels and is presented in Figure 3-1. The only difference in format 
is that for channel 1 the blackbody thermistor measurement is not reported 
and that portion of the scan is blanked out. 

During the preprocessing phase the scan lines are synchronized and digitized, 
with the two channels being interleaved to provide comparable infrared and 
visible data. Because not all of the data scan is used in subsequent processing, 
only six selected intervals are digitized and carried over for further proc- 
essing. The nominal digitizing intervals are indicated in Figure 3-1. The 
numbers in parentheses indicate the number of final average values obtained 
from the scan line. The 6 significant parameters that are digitized are (1) the 
space view, (2) the input calibration staircase, which consists of 7 levels, 

(3) the Earth scan measurement, for which 1500 samples cover approximately 
^35 d^rees from the nadir direction, (4) the 7 values of the output calibration 
staircase, (5) the blackbody view measurement, and (6) the blackbody thermis- 
tor measurement. The preprocessor also extracts the current values of seven 
parameters from the housekeeping PCM data and includes them with the scan 
line data. This set of data provides the starting point for the scan line cali- 
bration. 
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Figure 3-1. HCMR Data Format (not to scale) 





An overview of the next processing step is provided in Figure 3-2, which is a 
schematic representation of the calibration and correction procedure. Starting 
from the left of that figure, the scan data just described enter the system in a 
scaled count format (0 to 255). Five of the six digitized measurements are 
routed to the calibration module; the Earth scan data go directly to the correc- 
tion module. In addition to the direct scan data, the selected housekeeping data 
(as well as a number of preflight calibration constants) enter the calibration 
module. The primary output of this calibration module is the four coefficients 
that provide the functional transformation of count values to an appropriate ra- 
diance or albedo-related index. That transformation function is then transferred 
to the correction module, where it is applied to each of the Earth scan samples, 
producing 1500 calibrated indices to the appropriate master output table, which 
are then output to tape or other processing steps. Ancillary calibration *data 
are also produced for special analysis. 

Typically, two levels of conversion are applied to the data in sequence. In 
the first, a raw voltage count is taken from the data scan and is corrected for 
instrumental errors using the calibration staircases to obtain a calibrated 
scan voltage. The second level of conversion transforms the calibrated output 
voltage to a scaled, physically significant quantity (e.g. , temperature, voltage, 
albedo) using some physical calibration. To clarify the two steps in the follow- 
ing descriptions, the corrected and calibrated voltages are designated by a 
subscripted V. The second level of conversion uses variable names suggestive 
of the physical quantities involved. 

3.5.1 Count-To-Voltage Conversion 

The first level of ccr'version in which calibrated scan voltages are obtained 
applies to both channels in exactly the same way. This step is thus discussed 
here before proceeding to those elements that are unique to each channel. The 
calibration reference for the count-to-voltage conversion is obtained from the 
two calibration voltage staircases that are inserted into the signal in each of 
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the channels. The input calibration sequence is injected into the system imme- 
diately after the detector and at the input to the preamplifier. It consists of a 
set of seven voltage levels, the nominal values of which are 0 to 6 volts in 
1-volt steps. The actual values measured by the ITT acceptance test are pre- 
sented in Reference 1 and are reproduced in Table 2-2. This calibration sig- 
nal allows for correction of any level of drift or nonlinearities introduced into 
the system from the preamplifier or through the amplifier, the telemetry sys- 
tem, the downlink, the ground station, or the preprocessor. A second set of 
seven calibration steps is inserted at the output of the final amplifier and at 
the input to the telemetry system. This output calibration staircase provides 
largely redundant information and is used only foT* amplifier linearity checks 
and to calibrate the thermistor measurement on the second channel. 

Because the voltage levels could not be measured in the spacecraft system 
configuration, the reference values will be the ITT final acceptance values 
(as indicated in Section 3.2). These values will be assumed to be unchanged 
during the mission. Tabic 2-2 presents these measured values for a range of 
baseplate temperatures from 3 degrees C to 40 degrees C. Close inspection 
reveals that the variation of the step values with baseplate temperature is less 
than or of the order of 0. 1 percent of the 6-volt range. For this reason the 
nominal values for the step voltage can be considered to be independent of base- 
plate temperature, and the average values for aU baseplate temperatures have 
been used in the calibration processing. These are provided in Table 3-2. 

Because of constraints imposed by the recessing system, it was determined 
that a cubic e]q)ression would be used to approximate the count-to-voltage 
relationship for the calibration staircases. This approximatiem provides an 
acceptable accuracy level for the preflight data. Unless the system changes 
dramatically in flight, this approximation is expected to be quite adequate for 
the life of the mission. 












3.5.2 Channel 1 Data Calibration fVisible/Near-Infrared Sensor) 


As previously indicated, the processing is divided betv-een two modules, one 
that performs a recalibration and geuerates functional transformation coeffi- 
cients and a second that applies that transformation to each sample in the 
Earth scan. The form of the transformation has been established as a cubic 
polynomial for both channels, so the correction module need not be discussed 
further. The module that requires further explanation, however, is the cali- 
bration module that develops the transformation coefficients. Figure 3-3 pre- 
sents a schematic representation of this module for channel 1. In this case 
the procedure is straightforward, with only two significant elements. The first, 
a voltage calibration, accepts as input the seven input calibration steps and 
uses a least-squares procedure to fit these values to the nominal voltage values 
given in Table 3-2. The resultant cubic expression is passed to the next ele- 
ment, where it is combined with a quadratic expression for the albedo index as 
a function of calibrated voltage. This last expression was obtained by a least- 
squares fit to the data in Table 2-5. The final expression gives the albedo as 
a function of raw count values with all terms beyond cubic discarded. The 
cubic coefficients are then transferred to the correction module. Reference 
conversions are performed on several additional data elements in the scan for 
special analysis on noise and performance. The simplicity of this calibration 
is attributable to the fact that there is no onboard calibration of the channel 1 
sensor, and therefore the sensor performance is assumed to remain fixed 
during the mission. Only the voltage calibratioii can be introduced into the 
processing. 

3.5.3 rhaimwi g Data Calibration (Infrared Sensor) 

Because the infrared detector has onboard calibration capabilities, the cali- 
bration module for this channel is significantly more invtdved fium that for the 
rlaifale channel. Figure 3*4, a sdkematic repressntatien cf this module. 
Illustrates the point* The voltage calibration element functions Just as for 
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PRE-FLIGHT CALIBRATION 



Figure 3-3. Channel 1 Calibration (General) 
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channel 1, accepting input calibration steps and using at least-squares procedure 
to fit a cubic polynomial to the preflight data of Table 3-2. 

For the second element it is useful to review the relevant features of the in 
strument as well as some of the assumptions made in Section 3.2. When the 
calibration data contained in Table 2-7 are reformatted tc use radiance rather 
than temperature as an input parameter, the voltage response is found to be 
a nearly linear function of radiance. With a slight modification of the Planck 
function it is possible to obtain a quantity, R , which is more nearly linear with 
voltage. This function, defined by 


R = 



(3-1) 


is used as the basic quantity for recalibrating the data. Assumption 4 of Sec- 
tion 3. 2 implies that this quantity will remain linear with respect to voltage 
throughout the mission even if the gain of the detector changes. It is thus pos- 
sible to determine the gain by using two known points to locate this line in the 
R-V plane. The two points that are available are the near-zero temperature 
of space, which is automatically incorporated into the scan reference, and the 
internal blackbody, which has a monitored temperature determined by the 
baseplate temperature. To set the telemetry range to 260 degrees K to 340 de 
grees K, a bias of magnitude V,___ volts is introduced into the system. This 
implies that when the Instrument is looking at space, the infrared channel has 
a true output of volts. The slope (RS) of the straight line containing 

the space point 0) and the blacMtKxfy with an R value cf R(T) with 

OFF 

voltage output of V would be 


RS = 


R - 0 

'' - <-'^OFF> 
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or 


RS = 


R 


V + V 


OFF 


(3-2) 


Given the thermistor-measured temperature of the blackbody and the instrument 
response to the blackbody, this fundamental relationship is used to recompute 
the gain of the sensor. 

A more detailed diagram ol the internal blackbody calibration is presented in 
Figure 3-5. Starting in the upper-left comer, the first block averages the 
measurements of the blackbody temperature that are received from the telem- 
etry and from data channel 2 with previously received values using an expo- 
nential averaging method. Once a suitably averaged value of the blackbody' 
temperature is obtained, a correction that is a function of baseplate temperature 
is applied. This correction, determined by ITT and verified in the thermal- 
vacuum test, is presented in Figure 2-7. It should be noted, however, that 
flight data suggest that this correction has changed. This is discussed in Sec- 
tion 5.3.2. 

The corrected value of the blackbody temperature is used to calculate a value 
of R . This value, , is then used in Equation (3-2) to obtain a slope, 

RS . Combining the electronics calibration with the R relationship, a con- 
version from counts to R is obtained. Finally, an index function can be ob- 
tained via this result with a scaling function that also converts the R values 
to values defined hy the Planck function. This last correction is necessary 
to effect an easily calculated relationship between the muster output table and 
T . After the final set of coefficients has been determined, it is transferred 
to the correction module for processing of the Earfii scan samples. 

3.6 MASTER OUTPUT TABLES 

This section describes the expressions for evaluating the primary and second- 
ary table entries for both visible and infrared channels. The master output 
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Figure 3-5. Channel 2 Calibration (Internal Blackbody) 







table concept was described in Section 3.3. Section 3.6. i gives the expression 
for converting output indices to the normalized albedo for the visible channel 
and to equivalent blackbody temperature for the infrared channel. Section 3. 6. 2 
presents the expression for converting output indices to equivalent radiance 
values for both channels. 

3.6.1 Primary Tables 

3. 6. 1.1 Channel 1 (Visible/Near-Infrared) 

The albedo is proportional to the output index 

A =al. 

1 

where A is the albedo, and T is the output index, with limiting conditions 
= 0 \i^en A = 0. 00 
= 255 when A = 1. 00 
This gives 


A = (3.9215686 X lo"®) 


Some sample values are given below: 


h_ 

A 

0 

0.0 

100 

0.392157 

200 

0.784314 

255 

1.000000 
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3 . 6 . 1 . 2 Channel 2 (Infrared) 

The Planck function can be written 


[expiCgIXT) - l] 

4 

where C'^ = 37418.44 watts per centimeter per micrometer 
C = 14388. 33 micrometers per degree K 

(These values are from Reference 3.) 

If 


A 11. 5 m 
AA = 2.0 /im 


and 


AW^(T) = W^(T) AA 

where T is the temperature, the output index can be defined by 

= AW^(T) + (3-3) 

where is a constant, and I^ is the output index for the infrared channel. 
Combining constants. Equation (3-3) can be written as 



expdH^/T) - 1 


+ K 


3 


(3-4) 



where and are constants, with 


^2 " Til " ^ 


Using the limiting conditions 

1=0 when T = 260 degree K 
= 255 when T = 340 degree K 
Equation (3-4) can be solved for K and K as follows: 

X o 

® exp(K /260) - 1 ^ *^3 
= -Kg[exp(K2/260) - l] 


■ exp(K /340) - 1 *^3 


255 = 


Cexp(K 2 / 260 ) - ij 
[exp(K”/340) - 1] ^ 


K. 


Thus 


K- = -118.21378 
o 

Kj = K421.587 
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Solving Equation (3-4) for T 


Thus 


where K 
K, 

4 

K 


^2 “ ^3 ' expiK^/T) - 1 


exp(K2/T) = 



+ 1 



in < 






= 14421.587 
= 1251. 1591 degrees K 
= -118.21378 



Some sample values are given below: 


0 

260.000 

100 

297.468 

200 

326.198 

255 

340.000 


3.6.2 Secondary Tables 

3. 6.2.1 Channel 1 (Visible/Near- Infrared) 

The HCMR has been calibrated using a source to simulate the effect of diffusely 
reflected solar radiation. 

The defining expression relating albedo and radiance for a given wavelength as 
used for this experiment is 


R(X) = A 


mi 

n 


where R(X) = spectral radiance (watts per square centimeter per micrometer 
per steradian) 

A = albedo (dimensionless) 

H(X) = spectral irradiance of the Sun outside the atmosphere (watts per 
square centimeter per micrometer) 
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To obtain the effective response over the spectral width of the instrument re- 
sponse function (Tj(A)), a weighted mean of the radiance is obtained from the 
expression 


R = 



T^(A) R(A) dA 


A 

ff 



T^(A) dX 


T^(X) H(X) dX 


T^(X) dX 


Using the solar spectrum and the response function that was used by ITT in the 
original calibration, the following is obtained: 

R = 4 0.112437 

if 

= 3.579 XIO’^ A 


where is the mean radiance viewed by channel 1 (watts per square centimeter 
per micrometer per steradian), and A is the albedo (0 to 1. 0). 

Using the defining relation for the albedo table, 


A = (1^/255) = 3.9215686 x 10 


-3 
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the follo^ving is obtained: 


— -5 -2 -2 
R = 14.035 X 10 watts cm nm sr 

where 1^ is the index value for channel 1. 

The effec>^ive mean wavelength is 


A* 


,(X)XdX 

X = — : 0. 814 ^m 


h 


(X) dx 


where the half-maximum points of the response function occur at 


Xj = 0.560 nm 
and 

X = 1.040 ^m 

and \^4iere the instrument response function Tj^(X) is given in Table 2-4. 
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3. 6. 2. 2 Channel 2 (Infrared) 


For this channel the radiance values are obtained by assuming a blackbody 
source at the temperature obtained from the primary calibration table. This 
expression is of the form 


T(Ij) . 




f 1 


I 

1 


where T is the temperature for an output index value of !, from channel 2, 
and K , K . and K are as defined in Section 3.6. 1. 

X A o 

The mean radiance is then obtained from the expression 


W(T) = 


1 

n 


/ 


T2(X) W(X, T) dX 


L 


TgfX) dX 


where T (X) is the response function given in Table 2-6 for channel 2, and 

A 

W(X, T) is the Planck function for temperature T . 

The values of W(T) or W(I_) can be represented in tabular form. 

The relationship between t the output from channel 2, and W(I) can be 
appraximated by the foUowing linear expression to better than 0. 25 percent: 

W(I) = 4.823047586 X lo'^ + 4.2097918 X 10 “® 
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where W is the mean radiance in watts per square centimeter per micrometer 
per stcradian. 

A better approximation (0. 1 percent) can be obtained by using the primary table 
to obtain T as a function of I and evaluating the following expression: 


Wd^) ^ - 


C'^(ll. 33564) 


-5 




33564T 


- 1 


+ 1.09803 X lo"® I - 7.2 X 10~® 

Ct 


The effective mean wavelength for channel 2 is given by 


X = 


j TgCXlXdX 


/ 


T2<X) dX 


11.3356 pm 


The half-maximum points for the response function occur at 

Xj^ = 10.50 pm 


and 


X^ 12.12 pm 
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SECTION 4 - INTEGRATED SPACECRAFT 
THERMAL-VACUUM CALIBHATIUN 


The Integrated AEM-A spacecraft thermal-vacuum test was conducted in 
February 1978 at GSFC. A detailed description of the procedures may be 
found in Reference 5. Data for the infrared channel were taken at three base- 
plate temperatures: hot (33.8 degrees C), ambient (19.7 degrees C), and cold 
(approx* ruately -2.0 degrees C). During each of the three cycles, data were 
taken for cine Epply target temperatures in the range from 260 degrees K to 
340 degrees K in steps of 10 degrees K. For each target temperature approxi- 
mately 5 PCM snapshots, 10 full scans, and 50 partial scans were recorded. 

A full scan sequence is described in Figures 1-4 and 1-5. A partial scan con- 
tains the data from the Earth scan region. PCM snapshots contain various 
housekeeping data. Data was recorded on the Mini-Computer Checkout System 
(MIC06) developed by the Electronic Systems Branch at GSFC. Processing 
was performed on the GSFC IBM S/360-S1 and S/360-75 computers. Using 
a GSFC -furnished 3 0-inch -diameter integrating sphere, calibration data for 
the visible channel were taken outside the thermal-vacuum environment on 
30, 1978, and March 1, 1978, at GSFC. A description of various 
processing systems ana a of results are presented in 4.1 

through 4.3. 

4. 1 NEAR-REAL-TIME DATA PRCXJESSING SYSTEM 

A processing system to be implemented on the IBM S/360-91 and S/360-75 
computers was developed to analyze the data recorded on MICOS. 
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4. 1. 1 Infrared Channel 


4.1.1. 1 Full Scans 

The following five steps are performed to process a full scan: 

1. Raw voltages are averaged over the appropriate number of samples 
for each of the physically significant quantities. The various quantities and 
the number of samples used for averaging are us follows: 

Quantity N " mber of Samples 

Seven input calibration steps 14 for each 

Seven output calibration steps 74 for each 

Space clamp 14 

Earth scan (Epply calibration target) 30 

Blackbody view 62 

Blackbody thermistor 74 

The root-mean-square (rms) noise for each of the parameters is also calculated. 

2. The offset voltage, the baseplate thermistor voltaire, and the two 
blackbody thermistor voltages are obtained and averaged for all PCM su^hots 
recorded prior to the first fi'll scan. The baseplate and blackbody thermistor 
voltages are calibrated and converted to temperatures (degrees K) using the 
following formulas; 


PV. 

10.81 

^ i-1 

T -x; D (CV)‘ 

i-1 


a^re RV is the raw voltage, CV is the callbnuad voltage, and T la the 
temperature. Coefficients are given in Table 4-1. 
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3. Raw averaged voltages for each of the seven input calibration steps, 
space clamp, Earth scan, and blackbody view are calibrated using linear inter- 
polation or extrapolation. Specifically, 


VI2. - VI2. 

" RV12 , - RV12. 
1+1 1 


where RV and CV are typical raw and calibrated voltages, respectively; 
RVI2. and VI2. are raw and calibrated voltages, respectively, for the seven 
input calibration steps; and RVI2. s RV < RVI2j^j^ . Raw averaged voltages 
for the seven output calibration steps and the blackbody thermistor are cali- 
brated in a similar manner using the seven output calibration step values from 
each scan and the predetermined voltage levels given in Table 4-1. Calibrated 
rms noise for each of the parameters is determined by the following formula: 


CRMS = 


VI2 


i+1 


RVI2 


i+1 


- VI2j 

- RVI2j 


(RRMS) 


where CRMS and RRMS are calibrated and raw rms noise values, respec- 
tively, and the othei quantities are as previously described. 

4. Calibrated voltages and rms noise from the space clamp, Earth 
scan, and blackbody views are converted to temperatures (degrees K) and noise 
equivalmt temperature (NEAT) using the following formulas: 

1-1 

T C,(CV)' 

1=1 ‘ 

NEAT =1^22 Cj(CV)^"^ (CRMS)j 
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where T is the temperature, and C^. is the appropriate set of coefficients 
described in Table 4-2. 

Coefficients D. , as presented in Table 4-1, are used for converting blackbody 
thermistor voltage to temperature. 

5. A summary for all full scans processed is generated in two parts. 

The first part contains the averaged calibrated voltage, the scan-to-scan noise 

in calibrated voltage, and the calibrated rms noise for each of the parameters. 

The second part contains the averaged temperature, the scan-to-scan noise, 

and NEAT for Earth scan, blackbody view, and blackbody thermistor. The 

difference between the averaged blackbody thermistor and the blackbody view 

temperatures (AT^„) is also calculated. 

1315 

4. 1. 1. 2 Partial Scans 

Samples in partial scans represent the Epply target region. Steps 1 through 4 
of Section 4. 1. 1. 1 are performed for each partial scan for Earth scan data. 

A summary is prepared for Earth scan data as described in step 5. 

4.1.2 Visible Channel 

Procedures for processing the near-infrared channel data are very similar 
to those for the infrared channel. Differences are as follows: 

1. There are no blackbody thermistor data. 

2. Calibrated voltages and rms noise for space clamp. Earth scan, 
and blackbody views are converted to albedo and NEAA (noise- 
equivalent albedo) using the following formulas: 

A=E^ + E2 (CV) 

NEAA = E (CRMS) 
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where CV is the calibrated voltage, A is albedo, is as de- 
scribed in Table 4-1, and CRMS and NEAA are rms noise in 
calibrated voltages and albedo, respectively. 

3. Signal-to-noise ratio is calculated using Earth scan (visible target) 
data. 

4. 2 SUMMARY OF RESULTS 

Tables 4-1 and 4-2 describe various predetermined quantities (based on ITT 
calibration) used for analyzing data taken during the Uxermal-vacuum test at 
GSFC. 

4.2.1 Infrared Channel 

When the Infrared signal was converted to scene temperature using the first 
set of coefficients C^ determined by ITT, discrepancies between the calibrated 
temperatures and the measured temperatures were observed. Deviations for 
the hot cycle ranged from 0. 01 degree K to 2. 05 degrees K; for the ambient 
cycle, from 0. 64 degree K to 1. 87 degrees K; and for the cold cycle, from 
0. 91 degree K to 2. 14 degrees K. Measured target temperatures and the in- 
frared signal values were used, and a new set of coefficients C^ was obtained 
using least-squares fit techniques. Tables 4-2 through 4-5 contain the signal, 
the measured target temperature, and the calibrated scene temperatures ob- 
tained using the old and new sets of coefficients for the three cycles. Tables 4-6 
through 4-3 contain the signal, the measured target temperature, the calibrated 
scene temperature obtained using the new set of coefficients, and various noise 
values, including NEAT . Values for AT-_ (the difference between the black- 
body thermistor and the blacldx>dy view) are also included. Table 4-9 repre- 
sents typical rms noise values for various parameters at all three baseplate 
temperatures. 

The seven input and ou^t calibration voltage levels could not be measured 
during the spacecraft system configuration. However, the data taken during 
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Table 4-3. Ck>mparison of Temperatures Using ITT Calibration and Spacecraft 
Calibration - Hot Cycle 
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INFRARED 
TEMPERATURE 
(NEW CALIBRATION) 
(DEGREES K) 

260.49 

260.67 

270.34 

270.46 

230.40 

280.39 
290.00 
289.89 
300.25 
300-09 
310.14 
310.03 
320 32 

320.39 

329.41 
329.53 
340 20 
210.10 

INFRARED 
TEMPERATURE 
(OLD CALIBRATION) 
(DEGREES K) 

259.65 
259.81 
268.77 
268.89 

278.66 
278.65 
288.53 
288.42 
299.23 
299.07 

309.36 

309.25 
319 38 
319.44 
328.02 
328.14 

338.36 

338.26 

MEASURED TARGET 
TEMPERATURE 
(DEGREES K) 

260.59 

260.62 

270.37 

270.37 
280.36 

280.38 
289.94 
289.96 
300 30 
300.29 

310.00 

310.01 

320.27 

320.28 

329.57 

329.58 
340.13 
340.13 

SIGNAL 

(VOLTS) 

0.044 
0.052 
0.534 
0 541 
1.115 
1.115 
1.751 
1.744 
2.504 
2.492 
3.274 
3.265 
4.085 
4.090 
4.821 
4.831 
5.748 
5.739 

TYPE OF 
SCAN 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

NOMINAL TARGET 
TEMPERATURE 
'DEGREES K) 

260 

270 

280 

290 

300 

310 

320 

330 

340 
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Table 4-5. Oomparison Temperatures Using ITT Calibration and Spacecraft 
Calibration - Cold Cycle 






Table 4-6. Spacecraft Calibration Data (Infrared) - Hot Cycle 
(Baseplate Temperature: 33. 8 Degrees C) 


epic ATI. P'.Ci'.v 
cc ?'r.yd quality 


(NEW CALIBRA- 
TION) 

(DEGREES K) 

0 45 

0 92 
068 
0.81 

1 18 
1 16 
0.77 
0.50 
058 

NOISE 

SCAN TO 
SCAN 
(MILLI 
VOLTS) 

3.5 
1.8 
5.1 

3.7 
2 1 

3.8 
2.4 
2.3 
25 

5.0 

4.8 

4.9 

3.0 
62 

5.6 
3.8 

SIGNAL 

(MILLI- 

VOLTS) 

14.2 

14.4 

14.2 

174 
17 7 

16.3 
16.6 
12.6 
13.8 
19.6 
21.0 
25.2 

22.5 
32.0 

32.4 

33.6 

SIGNAL 

fVOLTS) 

0.072 

0.075 

0.606 

1.224 
1.219 
1.877 
1.879 
2.540 
2.540 
3.296 
3.295 
4.159 
4.146 
5 038 

5.960 

5.961 

H 

< 

Ui 

Z 

SCAN TO- 
SCAN 

(DEGREES Kl 

0.07 

0.04 

0.09 

0.06 

0.03 

0.06 

0.04 

0.03 

0.03 

0.06 

0.06 

0.06 

0.03 

0.07 

0.06 

0.04 

SIGNAL 
(DEGREES K) 

0.27 

0.27 

0.25 

0.28 

0.29 

0.24 

0.25 

0.17 

0.19 

0.25 

0.26 

0.29 

0,26 

0.35 

0.34 

0.35 

AT 

(CALIBRATION 
MINUS 
MEASURED) 
(DEGREES K) 

0.05 

0.11 

-0.34 

0.04 

-0.06 

0.20 

0.19 

-0.03 

-0.02 

-0.14 

-0.15 

0.13 

-0.04 

0.07 

-0.03 

-0.01 

INFRARED 
TEMPERATURE 
(NEW CALIBRA- 
TION) 

(DEGREES K) 

260.23 

260.29 
269.99 

280.45 

280.36 

290.5B 

290.60 

300.02 

300.02 

309.91 

309.90 

320.29 

320.14 
330.11 

340.14 
340.16 

MEASURED 
TARGET 
TEMPERATURE 
(DEGREES K) 

260.18 

260.18 

270.33 

280.41 

280.41 
290.38 

290.41 

300.06 

300.04 

310.06 
310.06 

320.16 
320.18 

330.04 

340.17 
340.17 

SCAN 

TYPE 

FULL 

PARTIAL 

FULL 

PARTIAL* 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL* 

FULL 

PARTIAL 

NOMINAL 
TARGET 
TEMPERATURE 
(DEGREES Kl 

260 

270 

280 

290 

300 

310 

320 

330 

340 






Table 4-7. Spacecraft Calibration Data (Infrared) - Ambient Cycle 
(Baseplate Temperature: 19.7 Degrees C) 


(NEW CALIBRA- 
TION! 

(DEGREES K) 

rooooomo»^oorom 

6 d 

noise 

SCAN TU- 
SCAN 
(MIlLI 
VOLTS) 

5.0 
2 2 
29 
2.2 
3 5 
1 7 
28 

1 9 
5.6 

2 2 

2.5 

G.5 

4.0 
72 
28 
3.3 
2.2 

SIGNAL 

(MILLI 

VOLTS) 

fs ^ (O ^ IN in ,31 — ^ 0> n CN r> n n ro 

oi r>i o d o o rx in « rt u> 00 g nj n rs.' 

SIGNAL 

(VOLTS! 

0044 

0 052 

0 534 
0.541 

1 115 
1 115 
1 751 

1 744 

2 504 
2 492 
3.274 
3.265 
4 085 
4.090 
4.821 
4.831 
5.748 
5.739 

K 

<3 

llJ 

Z 



SCAN-TO 

SCAN 

(DEGREES K) 

0 11 
0 05 
0 05 
004 
006 
0 03 

004 
0 03 

007 
0 03 
0 07 
0 03 

008 

005 
009 
0 03 
004 
0 02 

SIGNAL 
(DEGREES K) 

0.27 

0.27 

020 

0.19 

0.16 

0.17 

0.16 

0.18 

0.20 

0.19 

0.18 

0.19 

0.21 

0.23 

0.25 

0.27 

0.16 

0.19 

at 

(CALIBRATION 
MINUS 
MEASURED) 
(DEGREES K) 

-0.10 

0.05 

-0.03 

009 

004 

0.01 

0.06 

-0.07 

-0.05 

-0.20 

0.14 

Q.Q2 

0.05 

0.11 

-0.16 

-0.05 

0.07 

-0.03 

INFRARED 
TEMPERATURE 
(NEW CALIBRA- 
TION) 

(DEGREES K) 

260.49 

260.67 

270,34 

270.46 

280.40 

280.39 
290.00 
289.89 
300.26 

300.09 
310.14 
310.03 
320.32 

320.39 

329.41 
329.63 
340.20 

340.10 

MEASURED 
TARGET 
TEMPERATURE 
(DEGREES K) 

260.59 

260.62 

270.37 

270.37 
280.36 

290.38 
289.94 
289.96 
300.30 
300.29 

310.00 

310.01 

320.27 

320.28 

329.57 

329.58 
340.13 
340.13 

SCAN 

TYPE 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FUuL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

NOMINAL 
TARGET 
TEMPERATURE 
(DEGREES K) 

260 

270 

280 

200 

300 

310 

320 

330 

340 


70 


f 

i 




I 
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TaUe 4-8. Spacecraft Calibration Data (Infrared) - Cold Cycle (Baseplate 
Temperature: Approximately -2, 0 Degrees C) 


t 


ORiClilAl. P-. ;‘.. 

OF POOR v 


(NEW CALIBRA- 
TION) 

(DEGREES K) 

3 35 
3.43 
3.7t 

4 3? 
4.45 
4 00 
3 43 
3.10 
3 26 

NOISE 

SCAN-TO- 

SCAN 

(MILLI 

VOLTS) 

22 4 
164 

5.5 
3.3 

2.6 

1 3 

5 8 

2.9 

1.9 
1.8 
3 5 
3.2 

6 0 
3.2 
5 5 
3.2 
9 1 

2 7 

SIGNAL 

(MILL) 

VOLTS! 

193 

19.2 
250 

26.5 

12.6 
89 

22.1 
20.7 
159 
16.6 
20.6 
23 8 
20,5 
22 0 
28 1 
31.0 

24.2 
21 5 

SIGNAL 

(VOLTS) 

0 085 
0.077 
0.607 
0.606 
1.186 

1 191 
1.788 
1.787 
2.507 
2.509 
3.285 
3.277 
4 151 

4 137 

5 067 
5 054 
5968 
5.982 

NEAT 

SCAN-TO 

SCAN 

(DEGREES K) 

0.43 
0 31 
0.10 
0.06 
004 
0.02 
0.08 
0.04 
0.03 
0.02 
004 
0.04 
0.07 
0.03 
0.06 
0.(X5 
0.10 
0.03 

SIGNAL 
(DEGREES K) 

0 37 
0 37 
0.45 
0.47 
0.21 
0.15 
0 34 
0.31 
0.22 
0.23 
0.24 
0.29 
0.23 
0.24 
OJO 
0 33 
0.28 
0.25 

AT 

(CALIBRATION 
MINUS 
MEASURED) 
(DEGREES K) 

S. 8. 8 S ; R s 8 8 S 8 8 8 S 8 8 

o o o d ^ d d d d (j> ^ d 

INFRARED 
TEMPERATURE 
(NEW CALIBRA 
TION) 

(DEGREES K) 

li 1 S S 8 8 I! It S 8 S S S S S M 1 

MEASURED 
TARGET 
TEMPERATURE 
(DEGREES K) 

ssxcssilssgSCKsi:: 

888888888888888888 

SCAN 

TYPE 

FULL 

PARTIAL 

FULL 

PARTIAL 

PULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

1 NOMINAL 


8 8 8 8 8 8 8 8 8 


I 




















Table 4-9. Typical rms Noise Values for Spacecraft Test (Infrared) 



rmt NOISE (MILLIVOLTS) 

r ARAMtTfeH 

HOT CYCLE 

AMBIENT CYCLE 

COLD CYCLE 

SPACE CLAMP 

26.3 

11.8 

9.2 

INPUT CALIBRATION 1 

8.6 

12.4 

11.4 

INPUT CALI ORATION 2 

2.6 

12.8 

2.9 

INPUT CALIBRATION 3 

12.4 

12.5 

25.6 

INPUT CALIBRATION 4 

27.0 

10.9 

2.2 

INPUT CALIBRATION 5 

26.0 

13.3 

14.8 

INPUT CALIBRATION 6 

5.5 

20.9 

20.5 

INPUT CALIBRATION 7 

17.1 

16.0 

25.4 

EARTH SCAN 

32.0 

11.4 

28.1 

OUTPUT CALIBRATION 1 

21.7 

14.0 

23.6 

OUTPUT CALIBRATION 2 

2.0 

9.3 

10.9 

OUTPUT CALIBRATION 3 

22.1 

10.1 

10.5 

OUTPUT CALIBRATION 4 

26.6 

9.2 

0.0 

OUTPUT CALIBRATION 5 

17.6 

13.0 

12.9 

OUTPUT CALIBRATION 6 

3.7 

MM 

21.3 

OUTPUT CALIBRATION 7 

26.6 

12.7 

15.9 

BLACKBOOY VirW 

7.6 

14.2 

26.0 

BLACKBODY THERMISTOR 

2B.1 

12.4 

27.4 


















this test was used to determine the change In input calibration steps relative 
to the output calibration steps. All seven raw input voltages were calibrated 
lifting the output calibration voltages as reference. The calibrated voltages 
were then subtracted from the corresponding input voltage level as determined 
by ITT; these are provided in Table 3-2. The step number for which maximum 
difference was observed as well as the difference (referred to as "old minus 
new" In Tables 4-10 through 4-12) are presented In Tables 4-10 through 4-12. 
The tables also include the scan-to-scan noise corresponding to that step. This 
procedure was followed for all three baseplate temperatures. All differences 
noted are within acceptable limits. 

4.2.2 Visible Channel 

A summary of the analysis on the two sets of data for the visible channel is 
presented in Tables 4-13 and 4-14. The tables contain the number of bulbs 
that were on In the integrating sphere source, the signal, the equivalent albedo, 
and various noise values. Table 4-15 gives typical rms noise values for vari- 
ous parameters. 

Analysis of the data was also performed to determine the change in input cali- 
bration steps relative to the output calibration steps. The procedure adopted 
was similar to the one described in Section 4.2.1. Results are presented in 
Tables 4-16 and 4-17. 

4.3 TESTING OF PREFLIGHT CALIBRATION CONSTANTS 

The data taken during the integrated spacecraft thermal-vacuum test were 
used to verify the calibration algorithm and the prefllght constants described 
in Section 3. The data from 10 full scans for all 9 target temperatures taken 
at each of the 3 basq|)late temperatures were written on 3 disk data sets to be 
uqait to a simulation program. Each record of these data sets represents an 
Infrared scan line and contains the channel 2 items 1 through 14 described In 
Table D. l-la of Reference 4. Bern 16 of the table is represented by 1 Earth 
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Table 4-10. Comparison of Spacecraft Calibration Data With ITT Data for 
Infrared Input Calibration Steps - Hot Cycle (Baseplate Tem- 
perature: approximately 33.8 Degrees C) 


TARGET 
TEMPERATURE 
(DEGREES K) 

STEP 

NUMBER* 

NOISE 

(SCAN-TO^ 

SCAN) 

(MILLIVOLTS) 

DIFFERENCE 
(OLD MINUS NEW) 
(MILLIVOLTS) 

DIFFERENCE 
WITH RESPECT 
TO 6 VOLTS 
(PEF>CENT) 

260 


28 

17.0 

0.28 

270 

7 

5.7 

16.5 

0.28 

280 

7 

4.2 

16.2 

0.27 

290 

7 

3.9 

16.9 

0.28 

300 

7 

2.8 

17.5 

0.29 

310 

4 

7,6 

24.8 

0 41 

320 

5 

4.5 

18.9 

0.32 

330 

4 

4.9 

20.3 

0.34 

340 

1 

4 

4.6 

20.1 

0.34 


*STEP COSRESPONOINO TO MAXIMUM DIFFERENCE 



Table 4-11. Comparison of Spacecraft Calibration Data With ITT Data for 
Infrared Input Calibration Steps - Ambient Cycle (Baseplate 
Temperature: Approximately 19, 7 Degrees C) 


TARGE ■ 
TEMPERATURE 
(DEGREES K) 

STEP 

NUMBER® 

noise 
(SCAN TO- 
SCAN) 

(MILLIVOLTS) 

difference 

(OLD MINUS NEW) 
(MILLIVOLTS) 

DIFFERENCE 
WITH RESPECT 
TO 6 VOLTS 
{PERCENT) 

260 

3 

1.9 

9.0 

0.15 

270 

3 

1.7 

3.2 

0.15 

280 

3 

2.2 

8.5 

0.14 

290 

3 

3.0 

8.9 

0.15 

300 

7 

2.9 

9.1 

0.15 

310 

7 

3.4 

7.8 

0.13 

320 

3 

1.9 

3.1 

0.15 

330 1 

3 

2.7 

9.0 

0.15 

340 1 

3 

2.5 

8.4 

0.14 


1 

•step corresponding to maximum difference 





Table 4-12. Comparison of Spacecraft Calibration Data With ITT Data for 
Infrared Input C libration Steps - Cold Cycle (Baseplate Tem 
perature: Approximately -2.0 Degrees C) 


TARGET 
TEMPERATURE 
(DEGREES K) 

STEP 

NUMBER^ 

NOISE (SCAN- 
TO-SCAN) 
(MILLIVOLTS) 

DIFFERENCE 
(OLD MINUS NEW) 
(MILLIVOLTS) 

DIFFERENCE 
WITH RESPECT 
TO 6 VOLTS 
(PERCENT) 

260 

1 

8.3 

-10.9 

-0.18 

270 

3 

6.5 

-11.7 

-0.20 

280 

3 

4.3 

-12.0 

-0.20 

290 

300 

1 

8.7 

1.1 

-12.7 

11.5 

-0.21 
n 1 o 


U.1 9 

310 

2 

1.7 

10.7 

0.18 

320 

2 

1.4 

11.0 

0.18 

330 

2 

0.1 

10.1 

0.17 

340 

3 

5.7 

-10.8 

0.18 


*8TEP CORRESPONDING TO MAXIMUM DIFFERENCE 














Table 4-13* Visible Calibration Prior to Spacecraft Test (January 30, 1978) 


SIGNAL- 

TO- 

NOISE 

PATIO 

352.68 

359.83 

367.78 

376,89 

392.82 
378.25 
368.76 
376.86 
341.31 

341.06 

280.07 

297.83 
234 23 

245.08 
171.06 
181.04 

73.18 

72.98 

0.55 

0.50 

i 

< 

<3 

ui 

Z 

SIGNAL 

(PERCENT) 

0.09 
^ 36 
0.08 
0.09 
0.12 
0.09 
0.20 
0.09 
0.32 
0.09 
0.11 
0.07 
0.06 
0.06 
0.07 
0,06 
0.13 
0.08 
0.06 
0.06 

SIGNAL 

(PERCENT) 

0.26 

0.26 

0.24 

0.24 

0.20 

0.21 

0.18 

0.17 

0.16 

0.16 

0.16 

0.15 

0.14 

0.14 

0,13 

0.12 

0.15 

0.16 

0.31 

0.35 

ALBEDO 

(PERCENTl 

93.35 

93.39 

89.85 

89.70 

78.92 
79.06 
67.16 
67.05 

55.92 
55.61 
44.65 
44.69 
33.43 
33.42 

22.32 
22.29 

11.33 
11.32 

0.17 

0.18 

NOISE 

SCANTO- 
SCAN (MILLI- 
VOLTS) 


SIGNAL 

(MILLI- 

VOLTS) 

15.8 

15.5 

14.5 
14.2 
120 
12.4 

10.8 

10.6 

9.3 

9.7 

9.5 
8.9 

8.5 
8.1 

7.8 

7.3 
9.2 
9.2 

18.7 

20.8 

SIGNAL 

IVOLTSI 

5.5572 

5.5595 

5.3487 

5.3401 

4.6981 

4.7064 

3.9976 

3.9914 

3.3286 

3.3096 

2.6672 

2.6593 

1.G891 

1.9885 

1.3274 

1.3259 

0.6731 

0.6725 

0.0085 

0.0086 

SCAN 

TYPE 

— 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

FULL 

PARTIAL 

NUMBER 

OF 

BULBS 

oooor«(Dio^co(4^o 

FILE 

NUMBER 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


I 
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Table 4-15. Typical rms Noise Values for Visible Channel 


— 

PARAMETER 

NOISE 

(SIGNAL) 

(MILLIVOLTS) 

SP CLAMP 

27.9 

INPUT CALIBRATION 1 

28.3 

INPUT CALIBRATION 2 

16.4 

INPUT CALIBRATION 3 

9.8 

INPUT CALIBRATION 4 

7.8 

INPUT CALIBRATION 5 

7.9 

INPUT CALIBRATION 6 

11.2 

INPUT CALIBRATION 7 

12.9 

EARTH SCAN 

25.9 

OUTPUT CALIBRATION 1 

26.2 

OUTPUT CALIBRATION 2 

14,4 

OUTPUT CALIBRATION 3 

10.7 

OUTPUT CALIBRATION 4 

10.6 

OUTPUT CALIBRATION 5 

8.9 

OUTPUT CALIBRATION 6 

12.4 

OUTPUT CALIBRATION 7 

9.3 

BLACKBOOY VIEW 

39.6 







rable 4-16. Comparison of Spacecraft Data Mth ITT Data for 
Visible Input Calibration Steps (January 30, 1978) 


NUMBER OF 
BULBS 


STEP 

NUMBER** 


NOISE (SCAN- 
TO-SCAN) 
(MILLIVOLTS) 


DIFFERENCE 
(OLD MINUS NEW) 
(MILLIVOLTS) 

DIFFERENCE 
WITH RESPECT 
TO 6 VOLTS 
(PERCENT) 

8.4 

0.14 

-15.5 

0.26 

-14.9 

0.25 

-16.9 

0.28 

-18.3 

0.31 

-11.8 

0.20 

-13.6 

0.23 

-13.1 

0.22 

-17.6 

0.29 

-12.6 

0.21 


STEP CORRESPONDING TO MAXIMUM DIFFERENCE 

















Table 4-17. 


Comparison of Spacecraft Data With ITT Data for 
Visible Input Calibration Steps (March 1, 1978) 


NUMBER OF 
BULBS 

STEP 

NUMBER® 

NOISE 

(SCAN-TO- 

SCAN) 

(MILLIVOLTS) 

. 

difference 

(OLD minus NEW) 
(MILLIVOLTS) 

DIFFERENCE 
WITH RESPECT 
TO 6 VOLTS 
(PERCENT) 

8 

4 

1-2 

20.0 

0.33 

7 

1 

1.7 

-6.9 

0.12 

6 

2 

0.8 

-16.7 

0,28 

5 

4 

4.0 

20.9 

0.35 

4 

4 

2.1 

19.3 

0 32 

3 

4 

3,5 

19.3 

0.32 

2 

4 

3.9 

20.9 

0.35 

1 

4 

4.8 

18.4 

0.31 

0 

7 

7.3 

13.1 

0.22 


'step corresponding to maximum oipference 
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scan value, which is determined by averaging over 30 samples obtained while 
viewing the Epply target. The simulation program applies the calibration al- 
gorithm described in Section 3 and generates a cubic polynomial for all 10 scan 
lines representing 1 target temperature. The cubic polynomial is applied to 
each of the 10 Earth scan values (in counts), and the radiance indices are a’ - 
eraged. The averaged index is converted to a temperature using the formula 
described in Section 3.6. The procedure is then repeated for the next target 
temperature. Results are summarized in Tables 4-18 through 4-20. The final 
column in each table indicates the difference in the platinum resistor values 
from the Epply calibration target and the calibrated value fi’om the HCMR. 
Because these differences were minimal, the algorithm and the preflight con- 
stants presented in Section 3 appeared to be adequate. 

4.4 CONCLUSIONS 

Overall, the infrared channel performance was found to be satisfactory and 
did not change significantly from the performance during ITT calibration. 

Some differences are noted below: 

1. Thermal-vacuum data suggest that the sensitivity of the infrared 
sensor increased during the hot cycle and decreased duilng the ambient and 
cold cycles as compared to the sensitivity during ITT calibration. Because 
the processing algorithm is designed to adjust for a change in sensitivity, this 
does not necessitate changing any of the constants presented in Table 3-2. 

2. Although for a fixed baseplate temperature variational were ob- 
served in AT as the Epply target temperature varied from 260 degrees K 
to 340 degrees K, the average values for each of the three baseplate i.empera- 
tures were not significantly different from the ITT values. The average thermal- 
vacuum test values were 0. 78, 1. 35, and 3. 68 (degrees K) as compared to ITT 
values of 0.77, 1.60, and 3. 81 (degrees K) for the hot, ambient, and cold tem- 
peratures, respectively. 
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Table 4-18. Comparison of Calibrated Target Temperatures and 
Measured Target Temperatures - Hot Cycle 


NOMINAL TARGET 
TEMPERATURE 
(DEGREES K) 

MEASURED TARGET 
TEMPERATURE 
(DEGREES K) 

CALIBRATED TARGET 
TEMPERATURE 
(DEGREES K) 

DIFFERENCE 
(DEGREES K) 

260 

260.18 

260.06 

-^.12 

270 

270.33 

270.19 

-0.14 

280 

280.41 

280.60 

0.19 

290 

290.38 

290.36 

-0.02 

300 

300.05 

300.06 

0.01 

310 

310.05 

310.11 

0.06 

320 

320.16 

320.31 

0.15 

330 

330.04 

329.98 

-0.06 

340 

340.17 

340.00 

-0.17 






NOMINAL TARGET 
TEMPERATURE 
(DEGREES K) 

MEASURED TARGET 
TEMPERATURE 
(DEGREES K) 

CALIBRATED TARGET 
TEMPERATURE 
(DEGREES K) 

DIFFERENCE 
(DEGREES K) 

260 

260.59 

260.75 

0.16 

270 

270.37 

270.81 

0.44 

280 

230.36 

280.55 

0.19 

290 

289.94 

290.11 

0.17 

300 

300.30 

300.79 

0.49 

310 

310.00 

310.50 

0.50 

320 

320.27 

32U.54 

0.27 

330 

329.57 

329.51 

-0.06 

340 

340.13 

340.00 

-0.13 












Table 4-20. Comparison of Calibrated Target Temperatures and 
Measured Target Temperatures - Cold Cycle 


NOMINAL TARGET 

MEASURED TARGET 

CALIBRATED TARGET 

DIFFERENCE 
(DEGREES K) 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

(DEGREES K) 

(DEGREES K) 

(DEGREES K) 

260 

260.47 

2b0.00 

-0.47 

270 

270,24 

269.64 

-0.60 

280 

280.07 

279.64 

-0.43 

290 

289.96 

389.92 

-0.06 

300 

300.19 

299.98 

-0.21 

310 

310.00 

310.08 

0.06 

320 

320.22 

319.71 

-0.51 

330 

330.01 

330.34 

0.33 

340 

340.10 

340.00 

-0.10 
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3. The NEAT values presented In Tables 4-6 and 4-7 were slightly 
higher than those observed during ITT calibration (as presented in Table 2-3). 
Most of this increase could have been added by the spacecraft and MIC OS, 
Thus these data suggest no significant increase in the noise coming from the 
detector. 

4. Tables 4-10 through 4-12 indicate that the changes in the input 
calibration step voltages relative to the output calibration voltages were in- 
significant. 


SECTION 5 - FLIGHT PERFORMANCE EVALUATION 


TTiis section describes the x'esults of the analysis performed by processing the 
computer-compatible tapes (CCTs) generated by the Information Processing 
Division (IPD) after the launch of AEM-A. Various programs arc used to mon- 
itor the noise characteristics of the data, determine the sensitivity of the sensor 
system, provide ground truth comparisons, and test the prefiight constants de- 
scribed in Section 3. 

5. 1 PROCESSING SYSTEM FOR NOISE AND PERFORMANCE ANALYSIS 

The processing system for analyzing the data taken during the spacecraft 
thermal-vacuum test was modified to analyze fli^t data. Rather than accepting 
input from MICO^, this program takes input from an HCMM preprocessor CCT 
(F-tape), the format for which can be found in Reference 6. Each record con- 
tains raw sensor data, calibration data, and preprocessor data quality statis- 
tics. The system works very much as described in Section 4.1. Major 
differences are as follows: 

1. Housekeeping data are picked from each record rather than from 
PCM snapshots. 

2. There are no partial scans. 

3. The number of samples used for averaging various physical param- 


eters is different, as noted below: 

Parameter Samples 

Space clamp 12 

Input and output calibration steps 12 

Blackbody view 30 

Bladdxxh^ tfaermistor 30 



4. Up to 2000 scan lines can be processed in one run, and a summary 
is generated. 

5.2 SUMMARY OF RESULTS 

As each tape is processed, a two-page reporting form, the HCMM Flight Tape 
Analysis, is prepared. The form contains the rms noise in millivolts for vari- 
ous physical parameters, the noise equivalent temperature (NEAT), and various 
other temperatures. Noise values from thermal-vacuum data and a preflight 
recording are also included for comparison. A sample report is shown in 
Figure 5-1. Table 5-1, a auinn^ of the analysis performed on the CCTs 
received from IPD for channel 2, includes tape ID, Julian dav, type of pass, 
NEAT, AT' , and minimum and maximum rms noise in the input and ouq>ut 
calibration steps. Blacidbod} view data are used to calculate NEAT. 

AT’ is the apparent AT (apparent difference between blackbody themurtor 
BB BB 

and blacldbody view temperature). The blackbody view temperature is obtained 
by using the prelaunch measured C^'s for a baseplate temperature of 10 de- 
grees C, as taken from Table 4-2. it can be seen that AT' changes with 
time. This change could be due to a change in the sensitivity of the instrument, 
a change in the thermal gradient (AT ), or both. To separate the contribution 
from the two conditions, independent ground measurements are needed. This 
is further discussed in Sections 5.3.2 and 5 ,4. For the present, the assumption 
is made that although thermal gradient AT__ may have changed from the 
original value, it remains constant throughout the flight, because once estab- 
lished, onboard thermal environment does not change. Under this assumption, 
values in column s of Table 5-1 can be used to obtain the loss in sensitivity rela- 
tive to Julian day 131, the day aiien die Infrared channel was operaticmal. Thus 
by day 193 a loss in sensitivity of approximately S.7 degrees K (from a range 
of 80 d^rees K) bud occurred. A cubic polynomial was fit to represent loss of 
sensitiviiy as a ftnction of day. Table 5-2 lists die ooeflioionts obtained as 
well as actual and calculated losses in sensitivity. For days when more than 
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Figure 5-1. Sample Report (1 of 2) 
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Figure 5-1. Sample Report (2 of 2) 
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one data point was available, all values were averaged to obtain a single value. 

The plotted data is shown in Figure 5-2. After the completion of the recoveiy 

from an imdervoltage condition during which the passive cooler door was closed 

and the cooler patch warmed to approximately 200 degrees K, the instrument 

was back to initial sensitivity of day 131. This is suggested by the value -0.67 

d^ree K for AT* for day 197. Since then, a loss of ityproximately 11.2 de- 
SB 

grees K has occurred to day 302. Data for this period is described in Table 5-3 
and Figure 5-3. A linear fit is made to the data in this case. 

Table 5-4, a summary for channel 1, includes tape ID, Julian day, type of pass, 
signal-to-noise ratio (at 1-percent equivalent albedo), and minimum and maxi- 
mum rms noise in the ii^ut and output calibration steps. 

5.3 MASTER DATA PROCESSOR SIMULATION SOFTWARE 

A program was developed that accepts input from a preprocessor CCT and ap- 
plies the data processing algorithm described in Section 3 to generate a cubic 
polynomial for converting raw counts to radiance indices. This program was 
used to stuefy the effect of varying N (the number of scans used for averaging 
calibration data, as described in Section 3.2) on the rms noise in corrected 
data. It was also used for ground trutb comparisons. 

5.3.1 Results of Noise Analysis for Calibrated Data 

Because very few ftdl scans of thermal-vacuum data were recorded, tiiese data 
could not be used to study the effect of varying N on tiie noise in corrected 
data. Initial fU|d*t data were used for this purpose. Approximately 200 scan 
lines were used. A cubic polynomial was generated for sets of N scan lines, 
where N varied from 1 to 10. The rms noise in corrected counts for each 
value in the range 0 to 255 was calculated. Table 5-5 gives rms noise for 
various values of N for counts 45, 100, 160, 220, and 250 for two tapes; it 
also includes noise values for N ■ 10 for two more tapes. The results Indloate 
ttiat value of 10 for N is adequ at e. 
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Figure 5-2. Actual and Fitted Loaa in Senaitivity Prior to 
Undervoltage Condition 
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Table 5-3 • Loss In Sensitivity After Recovery From 
Undervoltage Ccmdition 


DAY 

(RELATIVE TO 197) 

LOSS (DEGREES K) 

ACTUAL 

CALCULATED 

1 

0.0 

-0.02 

3 

0.30 

0.19 

11 

0.90 

1.04 

32 

3.39 

3.27 

51 

5.16 

5.29 

54 

6.61 

5.61 

70 

7.22 

7.31 

106 

11.22 

11.13 


NOTE: 0-DEGREE COEFFICIENT - -0.130374 

1-DEQREE COEFFICIENT- 0.106220 


t 

I 
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K RELATIVE TO DAY 197 








rm DAY 1.41 22.9 39.0 23.0 39.0 

247 NIGHT 2.30 16.4 24.b 16.4 23.9 

260 DAY 1.42 18.2 35.9 18.2 34.6 

286 DAY 2.34 15.0 22.8 15.4 22 0 

302 NIGHT 1.78 23.8 39.6 23.7 36 6 
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Table 5-5. Root-Meau-Square Noise in Calibrated Data 


N 

rm NOISE (COUNTS) 

45 

100 

160 

220 

260 


TAPE ID: MAD00029 

1 

0.60 

0.70 

1.16 

1.76 

2.06 

3 

0.21 

0.44 

0.46 

0.68 

0.77 

5 

0.16 

0.38 

0.27 

0.49 

0.48 

7 

0.0 

0.36 

0.0 

0.48 

0.63 

10 

0.0 

0.22 

0.0 

0.48 

0.37 



TAPE ID 

GD800034 



1 

0.26 

0.68 

0.76 

1.08 

1.21 

3 

0.0 

0.46 

0.47 

0.62 

0.62 

5 

0.0 

0.42 

0.46 

0.36 

0.66 

7 

0.0 

0.32 

0.46 

0.36 

0.42 

10 

0.0 

0.31 

0.37 

0.41 

0.44 



TAPE 10: MAD00060 

10 

0.0 

0.37 

o 

d 

0.60 

0.37 



TAPE ID: 

OD800146 



10 

OjO 

0J> 

0A6 

0J1 

041 
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5.3.2 Ground Trutfi Comparisons 


To validate the data processing algorithm described in Section 3, ground meas- 
urements made at White Sands, New Mexico, were used. It is planned to con- 
tinue making these measurements throughout the life of the HCMM mission. 
These measurements are made in the middle of Elephant Butte Reservoir in 
White Sands using an infrared radiometer and at the time of an HCMM overpass. 
Data from radiosondes released at the time coinciding with the HCMM pass are 
used to derive the atmospheric correction. Work for obtaining the ground meas- 
urements and the atmospheric correction was preformed by another contractor. 
Details of this word are provided in Reference 7. 

Master Data Processor (MDP) simulation software was used for converting raw 
Earth scan pixel values to radiance indices. These indices can be converted 
to temperatures using the formiila given in Section 3.6.1. Satellite-observed 
ten^>eratures and ground truth temperatures are presented in Table 5-6. As 
indicated in this table, all ground temperatures obtained at White Sands are 
considerably lower than the satellite temperatures. Ten^^eratures from Ches- 
^ake Bay and from the Gulf Stream south of Cape Hatteras were also obtained 
for comparisons. In these two cases ground truth is closer to satellite-observed 
tenqwratures. 

Satellite temperatures were obtained by using die original thermal gradient 

, as presented in Table 2-7. It was decided to modify thermal gradient 

closer. Hie last two rows in Table 5-6 were not used because radlosoiide data 
was not adequate. The atmospheric correction was obtained fay using tbe radio- 
sonde data from tbe shore rather dian from the middle of the water body* 

For each data point, is calculated ualng the eqnatloii 
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BB 


R, 


E 4> V 
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where R_ is the radiance for the ground temperature (observed temperature 
G 

at the ground-atmospheric cor-ection) obtained from Planck equation 


R = 





(r j's are taken from Table 3-1) 


is the calibrated voltage for the pixel represe.idng ground measurement 
G 

location, V is the offset voltage, and E is the calibrated blackbody 

OFF 

view voltage. An iterative procedure is used to obtain the temperature corre- 
sponding to Rqo • This temperature is then subtracted from the corrected 
blackbody thermistor temperature obtained by using earlier values of (as 
given in Table 3-1). The average for the five differences is 5.24. It was de- 
cided to modify the original thermal gradient AT by 5.24. The vaiue 5.24 
is then added to the constant term of the polynomial (a^) for the blackbody 
temperature correction. Thus the original value of (3.5309) , as given in 
Table 3-1, is changed to 8.7709. Otner o^'s remain the same. 

5.4 CONCLUSIONS 

After launch and a 2-week outgaseing period, the HCMR was fully operational 
on Julian day 131 (May 11, 1978). During the operational checkout period that 
ftdlowed, examination of the telemetry and ffie results from the software de- 
scribed earlier in this section led to the conclusion that there were several 
minor anomalies in the performance of the sensor. These discrepancies and 
their consequences are discussed in the following subsections. 

5.4.1 Cooler Temperature Regulation 

Ihe passive radiative cooler used on the HCMR to cool the infrared detector 
uses a feedback network to maintain the detector at a constant 115 degrees K. 
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After launch the telemetry indicated that the control point was 117.8 degrees K. 
This value has remained constant for over 200 days, having returned to the 
same value after the cooler door was closed, the cooler warmed, and the door 
reopened during a 24-hour period approximately 70 days after initial operation. 
An increase in the operating temperature of the detector should result in a 
corresponding decrease in detector response. Howe’ er, other indications are 
that the response of the sensor increased after launch. 

5.4 2 Postlaimch Sensor Sensitivity 

Independent surface measurements are necessary to compare HCMR sensi- 
tivity after launch with the sensitivity determined during thermal-vacuum tests 
at ITT. Such measurements, taken at White Sands, New Mexico, are described 
in Section 5.3.2 and Table 5-6. Using the values from day 132 (May 12, 1978), 
the raw count of 117 is first converted to calibrated voltage and then to temper- 
ature using the prelaunch measured C^'s for a baseplate temperature of 10 de- 
grees C; the values of , as taken from Table 4-2, were obtained by fitting 
the calibration data of Table 2-7. After adding 0.7 degree K to this value to 
account for water-vapor absorption, a value of 299.7 degrees K is obtained; 
this is 10.2 degrees K higher than the corresponding surface temperature of 
289.5 degrees K. Because the sensor- measured tempeiatore was determined 
by using the prelaunch ITT curves, thereby circumventing the use of the inflight 
calibration blackbody, the 10.2 degrees K higher value was not due to a change 
in thermal gradient AT (the difference in the thermistor-measured and 
radiatively measured temperature of the inflight blackbody). Tbe difference 
between the two measurements could be caused by either an increase in the 
sensitivily of the HCMR after launch or an error in the surface measurements. 
Both possibilities have been examined, and there is currently no reason to 
choose one rather than the other. 



5.4.3 Postlaunch Value of Thermal Gradient AT 

BB 

Using Figure 2-7 and the postlaunch baseplate temperature, thermal gradiemt 

AT should have been approximately 2.3 degrees C. However, as discussed 
BB 

in Section 5.2, the apparent AT , denoted by AT' , was found to be ap- 

BB BB 

proximately -0.7 degree C for Julian day 132, a difference of 3.0 degrees C 
from the expected value. Assuming the validity of measurements from White 
Sands, this difference can be attributed to a combination of a change in the sen- 
sitivity of the instrument and a change in thermal gradient AT . Using ground 

BB 

measurement for Julian day 132, the difference in sensitivity (at the blackbody 
temperature) was 9.0 degrees C, and the difference in thermal gradient AT 

BB 

was 6.0 degrees C. This is consistent with an overall difference of 3.0 degrees 

C between the original thermal gradient AT and the apparent AT ob- 

BB BB 

served on Julian day 132. Details of the calculation of the change in thermal 

gradient AT are provided in Section 5.3.2. The average \alue of the change 
BB 

In thermal gradient AT „ for five data points Is 5.2 degrees C. 

BB 

5.4.4 Losses in Optical Transmission 

As discussed in Section 5.2, fli^t data indicate a loss in sensor sensitivily with 
time. Similar time-dependency is also indicated by the Table 5-7 column rep- 
resenting the differences between the ITT-calibrated temperatures and the siir- 
face temperatures. As discussed in Section 5.2 and shown in Figures 5-2 and 
5-3, this loss in sensitivity was reversible by a warming cycle of the passive 
radiative cooler. Therefore, it is believed that Ihis time-dependent loss of 
sensitivity is, iu reality, a loss in optical transmission caused by the deposition 
of water vapor on the cooled optics of the radiative cooler. Ihis loss is com- 
pensated for by the calibration software, but it does result in a gradual increase 
in die sensor NEAT and will therefore be reversed periodically. 













5.4.5 Compensation for Changes in Sensor Performance 


The preceding discussion indicates that a change in the HCMR probably occurred 
during launch. That this change manifests itself as an apparent increase in the 
sensitivily of the sensor is disturbing. However, because no alternative solu- 
tion was available, it was decided to offset the calibrated data to force them to 
agree with the surface measurements from White Sands, New Mexico. This 
was done by increasing by the average difference of 5*2 in thermal gradient 
AT . The validity of this change will be verified by comparing the data with 
the surface values obtained by various experimenters and from additional White 
Sands data. 
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APPENDIX A 


This appendix contains flowcharts, subprogram inter-relationships, functional 
descriptions, and source listings for the programs CCTANL, CORECT, and 
MDPSIM. Each flowchart presents a broad overview of the program. Functional 
description and major logical steps for each subprogram are explained through 
inline comment caro t. A description of variables in various COMMON blocks and 
NAMELISTS is also included in this appendix. 

Program CCTANL is the processing system for flight data analysis described in 
Section 5. 1. This program was never designed independently for this purpose. Due 

to unanticipated circumstances, software to monitor the performance of the instrument 
and ground stations was needed. The processing system developed for analyzing data 
taken during the integrated spacecnft testing (described in Section 4) was modified 
and used for testing flight data. Thus, the methods adopted may not be the best 
possible in certain cases. 

Programs CORECT and MDPSIM constitute the Master Data Processor (MDP) 
simulation software. Program CORECT generates look-up tables for converting 
raw counts to calibrated indices for master output tables. Program MDPSIM 
verifies the calibration processing implemented by the MDP. Since many of the 
functions performed by the two programs are similar, software was coded so that 
certain subprograms including the COMMON blocks could be shared by the two 
programs. Common block VALUE is used by both programs, whereas ST AT is 
used only by MDPSIM. There is one block data subprogram for both of these. 

MDPSIM uses a subprogram BCD5 that converts ASCII characters to EBCDIC 
characters and is available on SACC (Science and Application Computer Center) 
computers. 
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PROGRAM CCTANL 


Functional Description a nd Method 

Program CCTANL reads a preprocessor CCT and generates certain quantities that 
can be used to verify the performance of the instrument in flight and related data 
handling systems. The program analyzes data in units of blocks of scan lines. The 
user inputs the size of block, number of first block, and total number of blocks to 
be analyzed. MAIN first reads through the scan lines to be skipped, and then reads 
the first scan line to be processed. Data are transferred from the LOGICAL *1 to 
REAL *4 array so that various arithmetic operations can be performed on them. 
Counts from the two blackbody and baseplate thermistors are converted to 
temperatures. Subroutines CCTAVR and CCTBAS are called to calculate averages 
and standard deviations in counts for various physically significant parameters for 
each scan line. Subroutine CCTAVR also averages the raw counts for both input and 
output calibration steps over the requested number of scans to be used later by 
CCTCNV. An option for no averaging is also available. Subroutine CCTCNV is 
called to convert raw averages and standard deviations to averages and standard 
deviations in volts and physical units (temperature for chamiel 2, albedo for channel 
1). When tbe number of scan lines in a block are processed, a summary for that 
block is generated. The summary contains averages and standard deviations of the 
averages and averages of the standard deviations in counts, volts, and physical 
units. When the requested number of blocks is processed, a summary for all the 
blocks is generated. 



Figure A1 Subprograms For CCTANL 





•itilWk, 


READ IN»UT 
PARAMETERS 



Figure A2 Flowchart For CCTANL (Part 1. ) 




GENERATE 
SUMMARY EOR 
THE CURRENT 
BLOCK 


INCREMENT 
BLOCK COUNTER. 
SET SCAN LINE 
COUNTER TO 
ZERO 



FigttV* A2 (Cont ) Flowcbart For CCTANL (Part 2. ) 
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Variable 

Dimension 

Table A1 COMMON BLOCK CCINF 
Type Definition 

X 

2000 

R*4 

Sensor and calibration data (one location per sample). 

ISC 

1 

1*4 

Starting location in array X for space clamp Si .nples. 

lES 

3 

1*4 

IES(n) is the starting location in X for the nth set of 
Earth scan samples. 

lOUT 

1 

1*4 

Starting location in array X for output calibration 
samples. 

IBB 

1 

1*4 

Starting location in array X for blackbody view 
samples. 

ITH 

1 

1*4 

Starting location in array X for blackbody thermistor 
samples. 

NSC 

1 

1*4 

Number of samples for space clamp and each of the 
seven input calibrations steps. 

NES 

3 

1*4 

NES(n) is the number of Earth Scan samples in the 
nth set. 

NOUT 

1 

1*4 

Number of samples for each of the seven output 
calibration steps. 

NBB 

1 

1*4 

Number of samples for blackbody view. 

NTH 

1 

1*4 

Number of samples for blackbody thermistor. 

ITYPE 

1 

1*4 

=1, visible channel 
=2, thermal channel 

NUMES 

1 

1*4 

Number of sets of Earth Scan data to be processed. 
(Maximum = 3). 

QDATA 

4500 

L*1 

Array to hold one CCT record. 

QSTR 

131 

L*1 

All elements = character * 

FULAV 

200,20 

R*4 

Averages in calibrated volts for various parameters 
for one scan line. First index is for scan line , 
Second is for the parameter. 

FULSD 

200,20 

R*4 

Standard deviations in calibrated volts. 

RFULAV 

200,20 

R*4 

Raw averages. 

RFULSD 

200,20 

R*4 

Raw standard deviations. 

PUFLAV 

200,5 

R*4 

Averages in physical units. 

PUFLSD 

200,5 

R*4 

Standard devistions in physical units. 

IFULSC 

1 

1*4 

Scan line counter in a block. 

ITMP 

1 

1*4 

Baseplate temperature. 

D 

4 

R*4 

Coefficients for converting blackbody thermistor 
voltage to temperature. 

ISC AN 

1 

1*4 

Counter for the scan lines for which raw input and 
output calibration steps have been averaged. 

NSC AN 

1 

1*4 

Number of scan lines over which raw Input and out^ 
put calibration steps have to be averaged prior to 
calibration (Maximum » 10). 

NSET 

1 

1*4 

Counter for sets of NSCAN lines processed. 

QTIME 

6,10 

L*1 

STADAN time code. 
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Table A2 COMMON BLOCK ANALYS 


Variable 

Dimension 

Type 

Definition 

ZNAME 

20 

R*8 

Names for 20 physically significant parameters. 

AVER 

20,10 

R*4 

Raw averages for the parameters for one scan line. 
First index is for the parameter, second is for scan 
line. 

SD 

20,10 

R*4 

Raw standard deviation (rms). 

CV 

20,10 

R*4 

Averages in volts. 

CSD 

20,10 

R*4 

Standard de\dation in volts. 

PU 

20,10 

R*4 

Averages in physical units. 

PUSD 

20,10 

R*4 

Standard deviations in physical units. 

VIN 

7,2 

R*4 

Raw averages for seven input calibration steps. 
First index is for step, second for channel 

VOUT 

7,2 

R*4 

Raw averages for seven output calibration steps. 

C 

5,10 

R*4 

Coefficients for converting IR volts to temperature. 
First index is for the coefficient, second for base- 
plate temperature. 

CVIN 

7,2 

R*4 

Predetermined volts for seven input calibration steps. 

CVOUT 

7,2 

R*4 

Predetermined volts for seven output calibration steps. 

VOFFA 

1 

R*4 

Offset voltage for one scan line. 

BPA 

1 

R*4 

Baseplate temperature for one scan line. 

BBIA 

1 

RM 

Blackbody 1 temperature for one scan line. 

BB2A 

1 

R*4 

Blackbody 2 temperature for one scan lina 


Table A3 NAMELIST SAMPLE 


Variables belonging to one of the two COMMON blocks described previously are not 


included. 

Variable 

Dimension 

Type 

Definition 

NBLK 

1 

1*4 

Number of blocks to be analyzed (Maximum = 10). 

NSTBLK 

1 

1*4 

Starting block to be analyzed. 

NSIZE 

1 

1*4 

Number of scan lines in each block (Maximum = 200), 

NTYPE 

1 

1*4 

=1, process odd records* 


=2, process even records 


NAMELIST VOLT 

All the variables in this NAMELIST have been described in the COMMON BLOCK 
ANALYS. 


*Ordiaarily a CCT has all odd records for channel 1, and even records for channel 2. 
Hence, if the user specifies ITYPE » i, NTYPE should be 1, and for ITYPE «2, 
NTYPE should be 2. Occasionally, a CCT has order reversed. In tttat case, 
the combinations to be used are ITYPE » 1, NTYPE - 2, and ITYPE « 2, NTYPE « 1. 



PROGRAM MDPSIM 


Functional Etescription and Method 

Program MDPSIM verifies the calibration processing implemented by the Master 
Data Processor (MDP). Data is obtained from a computer compatible tape (CCT-RU) 
generated by the MDP. This tape contains the input data as well as the output 
generated by the MDP. The output consists of certain intermediate quantities and 
the cubic polynomials for converting raw counts to calibrated indices. The user 
enters input parameters through tne NAMELIST INPUT. Subroutine MDPRED is 
called to read one record at a time, (a single record contains data from both 
channels unlike a preprocessor CCT), containing input calibration data. Subroutine 
SMOOTH is called to smooth data. When the data are smoothed over the requcsti^d 
number of scan lines (N), subroutine INTVAL is called to generate certam inter- 
mediate quantities and the cubic polynomials referred to above. Subroutine COMP.AR 
then reads the output record from the tape and compares the outputs generated by MDP 
and MDPSIM. The process described is referred to as processing one calibration set. 
When the requested number of sets is processed a summary is gener ted. The format 
for a CCT-RU tape may be found in Reference 8. 
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Figure A4 Flowchart for MDPSIM (Part 1. ) 
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Figure A4 (Cent ) Flowchart for MDPSIM (Part 2. ) 





Table A4 COMMON BLOCK VALUE 


Variable Dimension Type Definition 


SC INI 

7 

R*8 

Smoothed counts from input calibration s'eps for 
Channel 1. 

SCIN2 

7 

R*8 

Smoothed counts from input calibration steps for 
Channel 2. 

SCOUTl 

7 

A*8 

Smoothed counts from output calibration steps for 
Channel 1. 

SCOUT2 

7 

R*8 

Smoothed counts from output calibration steps for 
Channel 2. 

EC 

3 

R*8 

Telemetry encoder calibration data. 

SCBBRl 

1 

R*8 

Smoothed count of blackbody view for Channel 1. 

SCSCl 

1 

R*8 

Smoothed space clamp count for Channel 1. 

SCBBR2 

1 

R*8 

Smoothed count of blackbody \'iew for channel 2. 

SCSC2 

1 

R*8 

Smoothed count for blackbody thermistor for Channel 2. 

EBP 

1 

R*8 

Baseplate voltage. 

EBBl 

1 

R*8 

Thermistor 1 blackbody voltage. 

EBB2 

1 

R*8 

Thermistor 2 blackbody voltage. 

EOFFS 

1 

R*8 

Offset voltage. 

WS 

1 

R*8 

Calibration scan filter weight (Default = 0. 1) 

PWS 

1 

R*8 

1-WS 

ALPHAl 

4 

R*8 

Coefficients of polynomial giving count as a function 
of voltage at input to amplifier on Channel 1. 

ALPHA2 

4 

R*8 

Coefficients of polynomial giving count as a function 
of voltage at input to Channel 2 amplifier. 

ALPHAS 

4 

R*8 

Coefficients of polynomial giving count as a function 
of voltage at output of Channel 1 amplifier. 

ALPa\4 

4 

R*8 

Coefficients of polynomial giving count as a function 
of voltage at output of Channel 2 amplifier. 

DELTAl 

4 

R*8 

Coefficients of polynomial converting raw counts to 
be calibrated indices for Channel 1. 

DELTAS 

4 

R*8 

Coefficients of polynomial converting raw counts to 
calibrated indices for Channel 2. 

C 

2 

R*8 

Telemetry voltage correction coefficients. 

EBBRl 

1 

R*8 

Blackbody view voltage on Channel 1. 

ESCl 

1 

R*8 

Space clamp voltage on Channel 1. 

EBBR2 

1 

R*8 

Blackbody view voltage on Channel 2. 

ESC2 

1 

R*8 

Space clamp voltage on Channel 2. 

TBB3 

1 

R*8 

Blackbody Aeimistor temperature from Channel 2 scan. 

TBP 

1 

R*8 

Baseplate temperature. 

TBBl 

1 

R*8 

Blackbody temperature from thermistor #1. 

TBB2 

1 

R*8 

Blackbody temperature from thermistor #2. 

VOFF 

1 

R*8 

Of&et voltage. 

BETAl 

4 

R*8 

Coefficients of polynomial giving voltage at input 
to Channel 1 amplifier as a function of received count 
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Table A4 COMMON BLOCK VALUE (Continued) 


Variable 

Dimension 

Type 

Definition 

BETA2 

1 

R+8 

Coeffieients of polynomial giving voltage at input to 
Channel 2 amplifier as a function of received count. 

Vll 

7 

R*8 

Predetermined voltages for seven input calibration 
steps for Channel 1. 

VI2 

7 

R+8 

Predetermined voltages for seven input calibration 
steps for Channel 2. 

VOl 

7 

R*8 

Predetermined voltages for seven output calibration 
steps for Channel 1. 

V02 

7 

R+8 

Predetermined voltages for seven output calibration 
steps for Channel z. 

A 

3 

R*8 

Albedo intensity function coefficients. 

TAUl 

4 

R*8 

Thermistor voltage to temperature polynomial 
coefficients for SCBB3. 

TAU2 

4 

R*8 

Thermistor voltage to temperature polynomial 
coefficients for baseplate. 

TAU3 

4 

R*8 

Thermistor voltage to temperature polynomial 
coefficients for blackbody thermistor #1. 

TAU4 

4 

R*8 

Thermistor voltage to temperature polynomial 
coefficients for blackbody thermistor #2. 

WT 

3 

R*8 

Coefficients used in weighted sum of blackbody 
temperatures. 

SIGMA 

4 

R*8 

Coefficients of polynomial used to correct blackbody 
temperature for baseplate temperature. 

EPSILN 

4 

R*8 

Coefficients in Planck equation used to convert 
blackbody temperature to radiance. 

RHO 

2 

R*8 

Polynomial coefficients used to compute offset voltage. 

B 

3 

R*8 

Coefficients for converting radiance to calibrated 
indices for Channel 2. 

VC 

3 

R*8 

A/D conversion levels. 

WBP 

1 

R*8 

Filter weight used to smooth baseplate voltage. 

W0 

1 

R*8 

Filter wei^t used to smooffi offset voltage. 

NUM 

1 

1*4 

Not used. 

N 

1 

1*4 

Number of scan lines to be used for smoothing 
calibration data (Default = 10). 

ICALL 

1 

1*4 

Calibration set being processed. 

COUNT 

40 

1*2 

Calibration quantities described in items 1 through 
14 in Table D. 1-la, Reference 4 for the current pair 
of scan lines. 

QGOOD 

1 

L*1 

-True, no I/O error in reading the tape 
sFalse, I/O error 


Table A5 COMMON BLOCK STAT 


Variable 

Dimension 

Type 

Definition 

AVERl 

256 

R*8 

Average of the differences between the calibrated 
indices generated by MDP and the program MDPSIM 
for Channel 1. 

AVER2 

256 

R*8 

Same as above for Channel 2. 

SDl 

256 

R*8 

Standard deviation of the differences between the 
calibrated indices generated by MDP and the program 
MDPSIM for channel 2. 

SD2 

256 

R*8 

Same as above for Channel 2. 

DFMINl 

256 

R*4 

Minimum of the differences for Channel 1. 

DFMIN2 

256 

R*4 

Minimum of the differences for Channel 2, 

DFMAXl 

256 

R*4 

Maximum of the differences for Channel 1, 

DFMAX2 

256 

R*4 

Maximum of the differences for Channel 2, 

lAV 

1 

1*4 

Number of calibration sets for which MDP and 
MDPSIM outputs were compared. 

QTYPEl 

1000 

L*1 

=1, difference between MDP and MDPSIM outputs 
exceeded predefined limits for Channel 1. 

=0, difference within limits for Channel 1. 

QTYPE2 

1000 

L*1 

Same as above for Channel 2. 


121 



Table A6 NAMELIST INPUT 


Variable ISETS is defined below, rest of the variables are described in the COMMON 
BLOCK VALUE. 

Variable Dimension Type Definition 

ISETS 1 1*4 Number of calibration sets to be processed 

(Maximum = 1000). 


122 



PROGRAM CORECT 


Functional Desc )tion and Method 

Program CORECT reads calibration data from a preprocessor Computer Compatible 
Tape (CCT) and generates look-up tables for converting raw counts (0-255) to cali- 
brated indices for master output tables. These indices can then be converted to 
desired physical units as described in Section 3. The user enters iiqjut parameters 
through the NAMELIST INPUT. Subroutine CCTRED is called to read the records to 
be skipped before processing and to read the first pair rf records (one for each 
channel). Subroutine SMOOTH is called to smooth the calibration data. When the 
data are smoothed over the requested number of scan lines (N), subroutine INTVAL 
is called to generate certain intermediate quantities and the cubic polynomials for 
converting raw counts to calibrated indices for both channels. Subroutine CONVRT 
is called to convert counts (0-255) to be calibrated indices using the polynomials 
generated. Thus, a look-up table is generated for each set of N scan lines referred 
to as one calibration set. When the requested number of calibration sets are pro- 
cessed, averages and standard delations for calibrated indices are calculated. 
Look-up tables, averages, and standard deviations are then printed. 
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Figure A6 (Coni ) Flowchart for CORECT (Part 2. ) 
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Table A7 NAMELIST INPUT 


Variables that belong to the COMMON BLOCK VALUE are not included. 


Variable 

Dimension 

Type 

Definition 

ISKIP 

1 

I *4 

Number of records to be skipped before processing. 

MSETS 

1 

1*4 

Number of calibration sets to be processed 
(Maximum = 200). 

NFILE 

1 

1*4 

Tape file number containing image and calibration 
data. 

MST 

1 

1*4 

First calibration set for which look up tables are to 


be printed. 
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128 


) 



: .'J 

OF POOU Qc/.i-i fY 
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4 ^ _ 
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. I«eC= I REC4 1 

IFIMaailREC-NTYPEf 2I.NE.0) GO lO 5 
w TO la 
610 Ir<EC=IREC^l 

tfUlTEC 8t920) IREC 

TO ^ 

10 IFULSC*IFULSC4 I 
ISCAN= ISCAN^l 
C|=QDATA(7I 
C2»0CATA(6 ) 
iCiMANf «C E 

C444E4TRANSF ER DATA FRJA L4 1 ARRAY TCI R44 ARRAY 
OJ 2b 1- 1 • 16 

tPf r .£ Q . 1. AW O . W U Wg S. gQ . 01" W-TO 2 8 — 

As INJA ( I ) 

x?li?x rril Jj =QDAfA( ISf 0^ 1 )EJ I 
20 CONTINUE 

C444F4ST0RE 881. eaa.BASEPLATC.OFFSET VOt TAGE 
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30 CONTINUE 

TENPER^TURE 
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_^C COUH T 4 l >* QC>t T A4^ W 24>a4|| 

C 35 CONTINUE 
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00006700 

00 0 0 6 801? 

00006900 
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00000900 

00009000 
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00009310 
0000' 400 
OO00 9 SO0 
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00009700 

00009900 
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00010400 
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oiyoTty o ocr 

00010/00 

Q Q 01 Q 6 Q Q 

00010900 
0001 000 
— OOM4^4aa 
00011200 
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008TI8t>a 

00011500 

- mum- 
00011620 
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00012000 
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800 122 80 ! 
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~8?iSlrlT'iS?*hTio«T7tTi7»fl^rr 
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.2St 
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L O CK 
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0OOI2600 
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■ )F POOR QUAunV 
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M AVFOL ( I BLK t I )=RAVFUL (IbCKtIl/IFULSC 
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CONTINUE 

74 6’f I f p uc ae - * 
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750 CONTINUE 
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747 CONTINUE 
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C44444PRINT S/N FOR VISIBLE CHANNEL 

IPUTrPE*NE*l*OR*I*GT*3l 60 TO 759 
R A 8 tO^ A VP U P L ^ t B LK 1 1 I ^A P OS OPf I B L IC i f I 


00019500 

00019600 


WRlTECa*940lRAT10 


»*ya.j# KDBvi iblK ] 
WR|TECa*931) ZNANE2*BAS£AVl IBLK) 
CAU* HM8S43I 


P00 1 9T00 
00019800 
liQOQg 


LQ9QO 

19910 


1F<ITYPE*EQ#1I GO TO 761 
C44444vPR 1NT OlFP BETWEEN BB TH EBB VIEW 
B t rP» A WP U r LU fl LRiB )" A VP O P L f I B L R i4 » 
WR1TCCB«939I OIFF 


ri99l< 
00020000 
99980 4 00 


00020200 

00020300 




1*1/1 *VP U FI.€iaL K«St-260. 01 


SO TO 7*3 


ooo t o*** 

00020900 

mm 

000200 ** 
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76 1 


763 


SiuTON = l .0/APUSDFi IBL K .4 > 

WH I T ER e t ’y A e) stffr o n 


iTl^ 


lf«lTE( 8#92S ) 0^ 

£.AUU lines <20 I 

C«’4«>4'4>MeiNlT lALISE VAHIABLES BEFORE PROCESSING NEXT BLOCK 
762 IFOLSC^O 

I4SET=0 

GO TJ 4 

780 NBLK=iaLK-l 

C »»»»^tNO A V E R A Q CS rO H ALL B LO CKS 

C4«>4>>4>F IRST IN wOUNTS t VOLTS 
1000 OO 810 I-l *20 

17="(^JLAV<r.l5*EQ,-1.0) GO TO 810 
TOTAVI 11=0 mO 

T 0 T 4»04 4>^>0 

TQTSOAU 1-0.0 
RTOTAV(ll=0*O 

n r otso<-r» =: o ^ o — 


RTTSOAd 1=0.0 


= TOTAVri^ ♦AVFU*.< J.I 1 
rOTSOAl 1 l = TOTSOA( I 1 4A VSOFLC J. I 1 

RTOTAVfl :=RTQTAV(I 1 >R A VFUL( J • I 1 
RTTSOACl ) = RTTSOAU 1 4^R A VSOF ( J « I 1 

R T 0 T3OC t l- WTOT 3 P < I 1 » W 5 Pr UL t- J # 1 1 » RSt)F U trt;nT^ 

800 CONTINUE 

TorA¥ ill = TQTAViJl/Na^>C 

1 T=T0TS0A<1 1/N8LK 
R1 OTAVI I 1=RT0TAV( 1 1/NBLK 
U l I=^RX TS aA4-I4 /NSi^ 

03 805 J=1 .N6LK 

T JTSOC 11=T0TS0( lid AVFUL( J. 1 l^TOTAV< I 1 1442 
R TOtao e i l-»- R T O T90( l >»ftr AWUL ( Jl I »*W T OT A V<t»r»-»^ 


805 


810 


CONTINUE 
MTQTSDd 1 = 

co n tinue ^ 


SQRT(RT0TS0( I1/N3LK1 


i 4fl4^K 


r VBBV= VBBVC JlAVBBVi J 1 «• (AVFUL ( J • 191-TOTAV 1191) 442^TVBBV 
TRBBVsRBBVl J14RBBV( Jl4'(RAVFUL( J •191-RTOTAV( 191 1«*24TRBBV 
aiO ’ ^Q NT t W U g 


T VBB V= SORT < T VBB V/NBLK 1 

wwKt H - l 8 Ki i g FlfffmWc m ,3 


»RiTEia»9261 

8RI T 8<8. 9 444^ 


(OSTRI J1 .3=1 *251 


00020900 
~ xjxrxj'Z i #00“ 
00021 1 00 
0002X200 
00021300 
00021400 
00021410 
00021500 
00021600 

cni 02 iTOtr 

00021SOO 

00021900 

00022000 

00022100 

^^922200 

00022300 

00022400 

ovvzz^xrx) 

00022600 

_0m2279Q 

00022600 

00022900 

- - Q^^QP3QQQ 

w W 

00023100 

00023200 

9 00 23300 " 

00023400 

09923500 

00023600 

00023700 

0992 3B99 

00023900 

00024000 

Cr90 241 00 

00024200 

000243 00 

00024400 

00024500 

099 2 4892- 

00024594 

00024506 

00 0 24^ 0 8 

00024510 

0Q Q24S1 2 

00024600 

00024700 


HRITECa* 9261 
VRITEI 8«926l 


CQSTRI Jl* J=1 *251 
(QSTR( J1 • J=1 *501 


MRI^e{ 8*928I <0STR< Jl * J=1 *50 1 


“OO 820 Nrvio 

1F<FULAV<1*11«EO.-1*01 go to 820 

tfRlTe48*931 1 ^NAREMl ^30X4-10^4 T*^TgTS04 I I^TCTSOAU 


l.ZNAMEll ItRTOTAVll 1 .RTOTSOII 1.RTTSOA41I 
620 CONTINUE 


WR ITCI 619 83 1 y y OO V iT R OO V 

CALL L1NESC2I 

C44444CALCULATE MAX frMlN RMS NOISE IN CAL STEPS IN MV 

OITBXSrr^TTT 

IFITUTSOAC 1411 .LT.VMINI) MIN1=I-1 
V MlMl»A m Ni4 ¥ MII*l# Y O T SOA<-l 44 .1) 


00024900 
00025000 
0 00 29A 00 
00025200 
Q 00253Q O 
00025400 
00025500 
000 28 609 ^ 
00025700 I 
00025800 
660 2 58 1 6 I 
00025900 
000 26000 

00026200 

00026300 


lFiTOTSOA<l4tl*GT.VMAXll MAX1=I-1 
VMAX1»AMAX1( VMAXX.TOTSOAl 141)1 


IPI T W aO Af | 9 || ) 4C T f YM|NO| 

IFITQTSOA?! ^ T 1 l^flvMAXO ^ ^ ^ ^ I I 

625 COWTINUC * ^ 

VmiAtoVM Ui 16 1000 


00026400 

00026500 

006 2600 0 

00026700 


00027000 

0902 7 400 


VMAXI»VMAX16t000 

VM1NO-VM1N061000 


irw Ax e » v M Ax o»t ooo 

«A1TEI0«>49I VM1N1*M1N1 


00027200 

00027300 

60 02 7 4 00 

00027500 


-WHHfcSrfHWta:""* 


.Rivet ••9S2I 


MlNO 
VMAXOfMAXO 
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Call l ines( J) 

»HiTt(6*928> (Q5TR< J) , J=1 .50) 

AKITLI 3.938) 

• RlTb ( 0.92 8) (USTfM J) . J=l .50) 
bi«I fE( 8.930) 

C44-4*^4CALC JL ATE P .U. AVtrl AGES 
UJ 8A0 1=1.5 

I F(P JFLAVI I , I ) .EQ.- 1 . 0 ) GO TO 840 
TPJAV ( 1) =0 .0 

fi>USl>At I ) = 0.0 

TPOSJl I) = 0.0 
OO 830 J=1,NULK 

T^UAV( I ) = TPUAV ( I )4A VPUFL ( J . I ) 

T^OS JA ( 1 )=TPCSDA( 1 ) 4APUSDF( J . I ) 

TPU50 4 l)=TPU50( I)f50PUFL( J.I )*SDPUFL(J,I ) 

830 CONTlNOE 

TPUAVl I)=TPUAv( D/NBLK 
Tl»t7SOA ft )-TPUSt3At 1 >/NBLK 
JJ 835 3=1 .NBLK 

TPUSJ< I ) = TPUSO ( I )♦( AVPUFL ( J, I )-TPUAV( I) ) 4»2 
835 CUNTINOE 

TPOSD( I ) = SQRT( TPUSJC I ) /NBLK) 

840 continue 

DJ 841 J=l .NBLK 

TPb8V = PBBV ( J )4PBBV< J ) ( AVPUFL( J .4 )-TPUAV ( 4 ) I **24 T PBBV 

- d4rt ttWTtmiC 

1P8bV= 5UWT C TPbbV/NBLK ) 

TdPA=0 .0 

OU 842 1=1 .NbLK 

r3PA=TBPA4fcASEAV( 1 ) 

842 CONTINUE^ 

TbPA=TBPA/NBLK 
C444«>4lkHlTL P.U.AVLRAGES 

- ty^ 850 

IFCPUFLAV( 1 . i ) .EO.-l. 


0 ) GO TO 850 


fefHiTEl 8.93 1 ) ZNAME( IND( 1 ) ) . TPUA V( 1 ) .TPUSO( I) ^TPUSOAi { ) 
850 CONTINUE 

«R1TE<8.933> TP8BV 
«RiTE<8.931^ ZNA«4£2^TaPA 
1 F( X TYPE.EO .1 ) GU TO 860 

C4F«'«'4CA^CJL ATE 08 TH-BA SEPL ATE , B8 TH-00 VIEW IN P .0. 

trrpT^TWAvt^r-'TtjPA * 

WRlTc(8f932) OlFF 
l)IFF = TPUAV15)-TPUAV(4) 
wRXTEi 8.939)DiFF 

RATI 0= TOT AV( I 9 ) /C TPUA V < 5 ) -26 0 • 0 ) 

4RiTE48«947) ;?AT|0 
GO TO 1100 

860 S1GT0N=1 .0/rPUSOA(4 ) 


1100 
^ 9PQ 
910 
920 
-925 
92 6 
927 


STOP 

FORMATCIX, »END_OF DATA •« 15) 

PORMAT I2I3F 

FORMAT ( IX. • I/O ERROR* .IS) 

FORMAT UX.131A11 
format (54X.25A1 ) 

FORMAT 4///54X. * SUMMARY FOR BLOCK*. 14) 

— < 25 X » 89 A t ) — * 

930 FORMAT (/// IX. * FUNCTION * .2X. * AVERAGE* .SX. *S.O« < 

13QX, *FyNCTI0N* j2X. • AVERAGE * .5X, *S . O. • . 7X . • AV S. 

931 FOR&Ar (2X. Ad.3F9.{ .32)r.A8 • 3F9. 2 1 

932 FURMATCIX. *BB THERMI STOR-BASEPL ATE* • #F9# 4 ) 

033^ FORMAT <2dX^9«4»5BX»F9 *4) 

934 FORMAT (25X. *CALI8^ATE0 £ RAW AVERAGES FOR FULL SC ANSI VOLTS )* ) 
938 FORMAT(25X.*P.U* AVERAGES FOR FCLL SCANS*) 

9 3 9 FORMAT ttX^ * *8 6 TH E RM I 5Tm»BB Wf€W=^.^Si4r 

940 FORMAT<*>*.42X.*S/N»*.F12#4) 


.7X 

•O. 


I* AV 


S«0. 


942 FORMAT (54Xt78Al) 
W F0ftMATt54K;»l<TAKI« 


. t5«2X.<TlME* .2X.6Z2) 

946 FORMAT C///S4X. *FINAL SUMMARY*) 

947 FORMAT ( I X. •SENSlTi VI TV QUOTl ENT * «F 1 0*4 1 

948 FORMAT UX. *S/N(BB VlEW-lX EQUl V ALENT ) * .F 1 0.4 ) 

949 FORMATUX. *M1N INPUT CAL RMS NOtSEs • .FB. 1 1 *MV* .2X. * 8* .1 I. *V * ) 
■P OM M AT 4 t Ml’»M AX I NP U T C A L^ RMS^ MO fr9g»» .F 9# tr»MV* 

951 FORMAT ( IX. *MIN OUTPUT CAL RMS NCI SE> • .F6 • I • • MV • • 2X. * 8 * . 1 1 • • V * ) 

952 FORMAT < 1 X. *MAX OUTPUT CAL RMS NCI SE« • .F6 • 1 • • MV * . 2X. • 9 • . 1 1 f • V • ) 
END 


00027900 
00028000 
OOG28IOG 
00028200 
00028J00 
00028400 
00028500 
00028600 
00028700 
00028800 
00028900 
00029000 
00029100 
00029200 
00029300 
00029400 
00029500 
00029C'*0 
00029700 
00029800 
00029900 
00030000 
00030100 
00030102 
00030104 
T70O3OrO6 
00030108 
00030200 
00030300 
00030400 
00030500 
00030600 
00030700 
■tyooTaBtrx) 
00030900 
00031000 
00031100 
00031 110 
0003T200 
00031300 
00031400 
- 0003IBOO 
00031600 
00031700 
00031800 
00031900 
00032000 
00032100 
00032200 
- 000323 00- 
00032400 
QQQ^2300 
00032600 
00032700 
00032800 
00032900 
00033000 
"00033 1 00 
00033200 
00Q3330O 
50033400 
00033500 
00033510 
00033600 
00033700 
>33 800 -- 
00033900 

>3410§ 
00034200 
00034300 
00034400 
0003450 0 
00034800 
00034700 
00034800 
00034900 


imt 
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♦ ♦♦ UF 3H6 WE-CQROS PROCESSED ♦♦♦♦♦♦♦*♦♦♦♦♦♦ ♦♦♦ ♦.> 




0yMAh*7s> 


VUL-OISKCfj, L)SK= ZfcMMB.L I bJ. CNTL 




♦♦♦I- 4-TTJ 00 00005 

Jti^^UJ TiNE OCTAVE 

+ K JJT INE TO SET o7 AW 1 6 CND LOCATIONS FOR X ARRAY FCR 

CF4‘4>^«>CALCJL AT ING AVLf^AuFS L STANDARD DEVIATIONS FOR VARIOUS 
C^'^frfrFlYRES OF SA»iPLE3.IT ALSO PRINTS R A W * C AL I BR AT ED SP.U. 

C^I-A#^frAVtRAGES tS.O.SAVt AVrWA^ES & S . D . ( C AL I BR ATED tP.U.&RA^d) FOR 
L*F«-^4 -^ALCUl AT ING averages WHEN ALL SCANS ARE PROCESSED 
11/15/78 

C ♦♦♦^»t>izVizLt^PED -BV^ M«dtrT»TKA • COMPUTER SCIENCES CORPORATieN 

SUdRUuriNE CCTAVR 
IMPLlC IT LOGICAL^KQ) 
k£AL*8 ZNAMC 
commun/cct inf /X( 20 001 

CU 4MUN/CCT INF / ISC, I ESI :2 ) . lOUT • I 0B • I TH , NSC • NE 5 < 3 ) ,NOUT ,NBB ,NTH, 

I I TYPE ♦ NUMES 

— COMMON /eCTiftF7^t^t>AT AXASOCt iQSTRI 131 T - 

C0MM3>4/ANALYS/ZNAME( 20 ) 

CoMMQn/ANALYS/AVERI 20,l0),SO(20,10),CVI20,l0>.CSD(20,l0)f 
♦ ^U( 20* 10) .PUSO(20, 10), 

1 VlNi 7. 2) • VOUT < 7*2),C<5,10),CVIN(7*2) *C VOUT ( 7 * 2 ) * VOFF A ,«PA ,B0 1 A * 
abii2A«FULA.V|20a«20) «FULSO( 200 *20 ) «RFULAV< 200*20) *RFULSOI 200*^20) * 

3PUFuAV (200 *5) *PUFLSD( 2 00 . 5 ) . IF UL SC • I T MP * D (4 ) * I SC AN , NSCAN , NSET * 

4UT aME( 6* lO ) 

-OtMENSlOtt r5MPtrr*SNt3*lt)),1NO(«) •" 

DATA 1ND/9*10* I I • 19*20/ 


INI < lALlSE VARIABLES 
IF( 13C AN*NE* I ) GO TO 130 
DO 120 1=1*20 
DU 120 U-1«N^CAN 
AVER! 1 * J ) = -l .0 
S J( I • J ) = -l .0 

CVE-E.U*t=*t - 

CSD( 1 * J) =- I .0 
PU( 1 . J ) = -l *0 
pusD(T ;j)=-i .0 

120 CONTINUE 

aO 122 I=I«7 
VIN( 1 * ITYPE) = 0*0 
VOUT( I fITYPE )=0.0 

EM-COftTtiMOE - - 

C4^FF4-CALCUL ATE RAW AVERAGES CALIBRATED 
C44FFFUNITS FOR VARIOUS PARAMETERS 
CFF^^ESPACE clamp OINPUT CAL 


00000007 
00000100 
00000200 
00000300 
00000400 
00000500 
00000600 

FFOOOOO 71 0 
00000800 
00000900 
00001000 
OOCOl 100 
00001200 
00001300 

OtT00140t> 

00001500 
000Q1550 

ooooiboo 

00001650 
a00DI700 
00001 750 
00001600 
— 0000200a 
00002100 
00002200 
00002210 
00002220 
00002230 
00002240 
00002250 
- 00 0 0 22 6-0 
00002270 
00002200 
00002290 
00002300 
00002310 
00002320 
00002330 

000 023 40 

AVERAGES .CONVERT TO PHYSICAL 00003500 

„ 00Q036O0 

00003700 


130 J=0 
. 200 
M=NSC-8 

1BEG = 1 SCfnSC 4( I-l ) F4 

I EWO-: I " 

J= J+1 

CALL CCTBASC 10EG.1ENO* J) 
lF(i«EQ*irGU TO 200 

V1N( 1- 1* ITYPE) = AVER ( I . I SC AN) FV I M I-l * I TYPE) 

200 continue 

iF(iSCAN*NE«NSCAN) GO TO 220 
00 205 1=1 #7 

V-ttH-tT-iTVP O =-V^N ( i rETlTPetjiMtSC^N - - - 

205 continue 

00 210 1=1 fd 

CALL CC:TCNVr(I) 

210 CONTINUE 

LSNR4 1LSN 

C<F44F^EARTH scan 

220 J = 6 

00 260 L=1 *NUMES 
J = J* I 

M*NES( 0-6 

1SMP(L4>1I«M 

ia£(^XESIL>43 

lENO^I BEG4M-I 

CALL CCTBASi lOEG.lENO. J) 

t r t I3 C A W 4HE4 W5C A N) QO Tfr »0 - - ~ " 

CALL CCTCNV(J) 

00 230 M=ltNSCAN 

irrP0SD(J«MI«EQ«0.0) PUSOfJ.M): 
SNiL.N)«PU(J.M)/PUSO( J*M) 


uo 


00003800 

00003000 

00004000 

00004100 

0000 4 200 

00004300 

(^004400 

00004500 

00004600 

00004700 

00004710 

00004720 

0 0 00 4 T3t7 

00004740 

00004800 

0^004500 

00005000 

00008100 

00005200 

00005300 

^00 54 00 - 

00005500 

00005600 

00005700 

00005800 

O0O0S900 

00006000 

00006100 

o oooorio 

00006200 

00006310 


I 
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230 CONTiNUfi 

COU l_UrfT IrfwC 

C + J JTPJT CAL 

26S J=ll 

DJ 300 1=1.7 

M = NOiJT -8 

tats» = iOUT*NOUTAU-l >*^4 
IbN0=IBEG4-M*-l 
J = J+l 

CALL , TENf>> J> 

VU JT ( 1 , I TYPE )= AVER ( I I ♦ I * I SCAN) f VOUT ( I • I T YPE) 
300 CJNTiNUE 

IF ( I SC AN.NE.NiCAN) GO TO 310 
L) J 302 1=1 *7 


0000t)400 
00006500 
00000600 
00000700 
00006800 
00000900 
00007000 
00007100 
00007200 
00007300 
00007400 
00007500 
0000751 0 
00007520 


VUUT4 i *1 TYPfcT = VOUT< I. I TYPE )/ NSC AN 
302 CONTINUE 
1 SMP( 5 )=M 

TO- 3 03 

CALL CCTCNVI I ) 

305 CUNTINUE 

♦ ♦ Sl «:«b 30 y~ VIEW 


00007530 
0000754 0 
00007600 
00007700 
00007800 
00007900 
00008000 


310 J=19 
— Jt=Na8-20 


lBEG=iaU4^10 
A£Ng= IBEG4M - 1 

CALL CCT8AS( IBEG.IENO. J) 

IFC ISC AN.NE^NSCAN) GO TO 320 
CALL CCTCNV(J) 
C«’T'4‘^#>BLACKBOOY THERMI STOR 
- XFC4X¥P£^€a^4l 4iU TO 330 

J = 20 

M=NTH-20 



lENO=18EG^M-l 

1SMP(7)=M 

XTttnr~CCTBA5{ 1 BEG. TEND. J) 

IF( ISCAN.NE.NSCAN) GO TO 845 
CAi-L CC T C N VaUi- -- - 


330 1F( iSCAN.NE.NSCAN) GO TO 645 
DO 500 M=l .NSCAN 


I .6) 


1 1=N5ET4NSCANFM 

»<RITEtAl944) II^(0T1ME(I.NI)«1^ 

WRTTE(6.94?) TQST^I ) . 1=1 .78) 
C44444PRINT INPUT CALS 

. ¥UFFU1^PU1^B1A»BB2A 

CALL LINES! 1) 

«RlT£(6f 922) ( V1N( K • I T YPE ) «K= 1 . 7 ) 

»R iTX -T-frT^d > I > 


IIRXTEC6.952) 

krRlT£(6.922) 


f SO(K.M) ,K=2«8) 
(C9(K.M) »K=2«d) 
rrSDIK.MI .K=2.8) 


^RnTETX,9S21 

CALL LINES (I) 

XA44A4PiUMr OUTP-LiT-XALS 

WRITE! 6. 926) ( VOUTIK. ITYPE) «K=1 
WRITE! 6*950) ISMPC 51 


7) 


WRITE! 6*926) !CV!K*N) *K=1 2*16) 

WRITE! 6* 952) !CSO!K,M) *K=12* 16) 

CALL LINESTfTT 

WRlTE!6*9t2) 

C inT space CLAME- - 

WRITE! 6*920) AVER! 1 «M) *CV( 1 *M) *PU( 1 *M) 
WRiT£!6*950) ISMP! 1 I 

WR lTC t 6 t 95 t ) 3&T r>4»t iCflP ! t f ) 

CALL L INES!1) 

C44444PR1NT EARTH SCAN 

IF! NONES .EQT6) GO TO 460 
DO 450 L>1*NUN£S 

.. XF!AVERiLA6#JI3»£Q*-U0i GO TO 450 
GO TO !420*430*440) *L 

420 WRITE!6*923I AVER! 9*M ) *CV ! 9* M) * PU! 9*M) 

WR IfC! 6i950 l i SNP fg) 

WRITE! 6* 951) SD!9* N)«CSO! 9*N) *PLS0!9*M) 
IF! ITYPE*EQ*1) WRITE!6*954) SN!l*M) 

-SOTO 450 

430 WR|TE!6f924l AVER! 1 0* Ml *C V! 1 0* N ) *PU! 10 *M ) 


000081 JO 
00008200 
00006300 
00008400 
■ 00008500 
0000860Q 
00008610 
00008700 
00008800 
00008900 
00009000 
00009100 
- TOO09200 
00009300 
00009400 
00009500 
00009510 
00009600 
00009610 
0000961 1 
-*tmOOV6t2- 


00009614 
00009616 
00009616 
00009700 
00009800 
00009900 
00010000 
ooo t o- t oo 
00010200 
00010300 
00010400 
00010500 
00010600 
00010700 
00010800 
' 000t09t)t) 
0001 1000 


mum 


00011300 
00011400 
00011600 
00011700 
06frtt-6Cfr- 
00011900 
00012000 
06012190 
00012200 
00042300 
00012400 
OO012SOO 
0001 2600 
00012700 
OOOl.a^OQO 
06012900 
00013000 
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• rilTL(6.950) 3) 

- - - - wKi Te< 6t^ r ^ sm lOf M) *C5ot io.«> .Ptsot 1 a,w> 

IF(UYPE.FO.l) WRITE(6.^54) SN(2,M» 

L»J TJ 450 

440 «HlTfc(6.925) A VEk< ll.M),CV(ll,H),PU(ll,M) 
WRlTb< b, 950 } I SMP( 4 ) 

MKiTLlb*951 > SU( I 1 *M) tCSD( 1 : .M) «PUSO< 1 1 vM) 
IF(lTVPE.EU.l) WPITE( 6.954) SN( 3.M) 

450 CJNTi*>)UE 

eA t - tr - - - 

C-i-i-f^fPRINT BLACKBCjDY VlLW 

460 i F ( AVhRC 19 .M ) • EU •- 1 .0 ) GO TO 470 

AW ITFi 6.928) AVER( 19.M).CV(l9.M).PU(l9.M) 
ARlTe(6.950) ISMP(6) 

MWI TE(^951 ) SD( 1 9.M) .CSO( 19«M ) «PUSO< 19.M) 
CALL LlNES(l) 

C4>^«‘^PW1NT BLACKBUDV THERMISTOR 


00013100 

O0D13200 

00013300 

00013400 

00013500 

00013600 

00013700 

00013800 

00013900 

ooon r tyrt) 
00014 1 oo 
00014200 
00014300 
00014400 
00014500 
00014600 
00014700 


— -ATtr iPt A\rcRi20^.-»rr.To^-t go m ^oo 

AW1T£( 6.930) AVEW( 20.M).CV(20.M).PU<20.M) 

«WlTL<6f 960) I5MP( 7 ) 

WWiTE(6.951) S0(20.M) «CSD(20.M) .PUSO<20.M) 

CALL L INES ( 1 ) 

C44*^44LA1.C3LAIE and print 01FF« 3ETHEEN BB TH Cr BB WIEA 
IF ( ITYPE.tU.l ) GO TO 500 
0 IFF T=PU( 20.M )-POf 1 9.M ) 

WR-tTCt0.903t Olf^T 

CALL LINES(I) 

500 continue 

C44FFFSAVE averages ES.O.FOR CALCULATING AVERAGES 
C4FF44AFTEW ALL SCANS ARE PRCCESSED 
. . Oa d40^ l = i #20 
DU 840 J=1 .NSCAN 
F JLAVi NSET*NbCANFj . I ) = CVM . J ) 

Pt»ti-Bt»tN SeT 4N3 CA N» 3* i * 

RFULAV CNSE T*NSCAN> J. 1 )> AVERT 1. J) 
-IFUL3D<NSET4NSCANFJ. I )=SD< I . J) 

CONTlNliE 
DO 841 1=1.5 

OU 841 3—1 .NSCAN 

PUFLAV fN5ET*NSCAN I )=PU< IND( I ). J) 
PJFLS0<NSET*NSCAN^ *I )=PUSD< 1ND(I)»J) 


64 0 


845 
900 
9A2 
92 0 
922 


NSET = NSET^ 1 

RETURN 
FORMAT (IX. 
F0MHAT(23X 
FORMAT (•0* 
FORMAT ( •0* 


924 FORMAT (*0* 

925 FQRMAT(*0* 

926 FORMAT (•0» 
928 FORMAT (•O* 

930- F URMA T 4 *~i)J 

942 FORMAT (54X 
944 FORMAT (54X 


951 FORMAT (23X 

952 FORMAT (20X 

"9B3 Fam«rArfTO’ 

954 FORMAT ( •♦• 
. 95 fr F UHMAT 4 i X* 
12X. • 
END 


lOF 10.4) 

«tRAM3Lrl iX^'CAElB' .9X,*P.U.«> 
••SPACE CLAMP ••3F16.4) 
.•INPUT CAL •.7F14.4) 



••EARTH SCAN 2 ••3F16.4) 

••EARTH SCAN 3 ••3F16*4) 
••OUTPUT CAL ••7F14.4) 

••BB VIEW ••3F16«4> 

^Mia~7H£R4USTOR3«^3F16«4l 

• 7BA1 ) 

• •SCAN* •15«2X^*TIME*»eZ2) 

I t 


00014800 
00014900 
0Q0I5000 
00015100 
00015200 
00945309 
00015400 
00015500 
00015600 
00015700 
00015710 
00015800 
00015900 
99916999 
00016002 
00016100 
“0001 6200 ■ 
00016300 
00016400 
00016500 
00016600 
99946692 
00016700 
00016800 
0OUI69O9" 
00016910 
99916920 
00017000 
00017100 
00047209 
00017300 
00017400 
009 1 TBOO- 
00017600 
09017700 
00017800 
00017900 
-99918099 
00016040 
0001B020 


• 34 • ( • *F8.4 • • ) • •6X)) 

• 74 • 4 • .F8«4 • • ) • ^4X ) ) 

• ^98 TREPM18T09-BB Vieil=*^P8.4) 

•70X^ •S/Ns* .F12«4) 

1-V^-14FFS£T-* «FI9«4«^»4 VI • ,2X« •BASCPL ATE^^ < ^ 49 
F10«4^*(K|*»2X« 'Baas* •F10«4^*4K)*) 




0004B200 

0_99I9300 

00046400 

00046500 


00046700 

00016600 


220 RECORDS PROCESSED 


664 £NO OF ME4BER 666 


oRiG'MAL PA:^ 13 
OF POOR QUMlir/ 


09MAR/y 14.59.42 - VOL = OISK06. OS 2 BMM B .L I 6 . CML 


♦♦♦♦*►♦♦♦♦ ♦♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

C^^ff^SUbROOTi NE CCTbAb 
2/22/29/ 

i NE TO CALCULATE AVERAGES £• STANDARD DEVIATIONS 
C4*'4-4'^UF samples RLPWeSLNTiNG VARIOUS PHYSICALLY SIGNIFICANT PARAMETERS 
C laLG=START I.OCAT40N OF X ARRAY FOR ThE PARAMETER BEING PROCESSED 

C IENO=LA5T LOCATION OF X ARRAY FOR THE PARAMETER BEING PROCESSED 

C J=lNOEX CORRESPONDING TO THE PARAMETER BEING PROCESSED 

CFF4 FFJEVELUOED by M.BEWTRA • COMPUTER SCIENCES CORPORA7ICN 

SUBROUTINE CCT B AS( I BEG . I END • J ) 

IMPLICIT LQGICAL41 (Q) 

- RF AL^B ZNAME 

COMMON /CCT INF/ X( 2000) 

COMMON /CCT INF/ ISC. I ESI 3) , lOUT. I Bb.I TH. NSC.NESC3) . NOUT .N8B .NTH. 

1 tT YP U N tm eS 

tOMMON/CCTlNF/OUATA|4500) .QSTRI 131 ) 

CQHMDN/ANALrS//NAME(_20 ) 

COmSTON/AnAlYS/AVEP^ 20. 10) .SDI20.10) .CV(20.10) .CSDI20.10). 

4PUI20. 10 ) .PUSDI20. 10) . 

_ZVXAU7»Z>..WmLIC7#ZJ^ClS.l 01 *C WIN 4 7.21 #€90011 7 .2 ) • VOFF A. dPA .601 A « 

2BB2A.FULAVI 200.20) ,FUL SOI 200 .20 ).RFULAV( 200 . 2 0 ) . RFUL SOI 2 00 . 20 ) • 
JPUFL AV 1200 ,5) .PUFLSDI 2 00.5). IFUL SC . I TMP , 0 1 4 ) . 1 SC AN . NSCAN . NSET . 

» Qr i M g c oi l e > - - - - 

C mR 1TEI6#900) ItiEG.lEND.J 

C 9RITEI6.910) I X I I ) . 1 = 1 BEG . IE NO ) 

AVERI j .ISCAN )=0.0 
SOU. ISCAN)^0.0 

. Nf- 1 FN P — I BE G-*- I - . , . 

CFF4FFCALCULATE AVERAGE 

OU IQO I = IBEG.IEND 

too CONTINUE 

C W RITE I6.910) AVERIJ.ISCAN) 

AVEinX.rSCAFn = AVER( J.l SCAN)/N 

C WRITEI6.910I AVERI J#ISCAN) 

€► JlUX T £4 0#9aaX-Ai 

CFFFFFCALCUL ATE S#D. 

DO 200 1=I0EG.1ENO 

SOlJg I S CA N I^aO I Ji ISCA N t» < X I I »* A VgR I U # I5C AHt 

200 CONTINUE 

Q_ M R1T E I6.9 20I SO(UtlXAN) _ . 

sofj; r|CA^^RT4 sofj . ISC ANl /I N ) ) 

C WN1TEI6.920) sou. ISCAN) 

ftfc ...... 

C 900 FORMAT I IX# 316) 

C 910 FORMATI IX# 12F10.6) 


r*r END' or MEMBER *44 


50 RECORDS PROCESSED 





4 


PAC2 19 
‘P I'GOR QUALITY 


OyWAW7<^ 14.59.42 - V(JL- D ISK C6 * U S N = 7 BMMO . L I B . C NTL 


C ♦♦♦♦♦sUBka JT INE CCTCNV 
C4^v««+ 2/22/79/ 

I NE TO CJNVERT FROM RAW TO CALIBRATED VOLTAGES 
Cf^'^^^ANO THEM TO PHYSICAL ONITS 

C J=iNU£X FUR THE PARAMETER BEING PROCESSED 

C 

C4-44+fDLVEL JPEO BY M.BEWTkA . COMPUTER SCIENCES CORPORATION 

4 

SUBROUTINE CCTCNV(J) 

IMPLICIT L0G1CAL»I(Q) 

REAL48 ZNAME 
COMMON/CCT INF/X(2000) 

CUMMON/CCTLNF/ISC# lESl 3) . lOUTf I B8 .1 TH. NSC*NES<3> »NOUT 
1 HYPE. NUMES 

COMMUN/CCT INF/QCATA(4500) .0STR( 1311 

ctmMtm/AHALYS/^ZNAiwef^T - -- - - - - 

CUMMUN/ANALYS/A VEK( 20. 10)«SO(20.10)«CV(20.10).CSO(20.|0). 

♦ 3U(2U# 10).PUSD(20. 101 # , . 

rvrNr7.2).VOUTf7.2I.CTS^.lO) •CVIn( 7.2).CV0UT(7»21 .V0rFA.dPA.B81A* 
2Sd2A.FULAV( 200 *201 .FULSOI 200.20 l.RFULAVl 200.20) .RFULSOI 200.20) • 

3PUFLAVl2jaO«SX^PUFLSD( 200 .51 . IFULSC. I TMP.OI 4 ) « iSC AN « KSCAH^ NSET^ 

4UT IMEI 6. 10) 

C4444>4>CUNVERT FROM RAH TO CALIBRATED VOLTS USING LINEAR INTERPOLATION 

e itt»» rO W I NP UT CAL -ST E r Sf SP A ^ C CL AMf^-.CAATH SCAN COT^tCTr 

IF( J.E0.20.OR.(J»GE.12.ANO.J.LE.ien GO TO 160 
DO 175 M:tl .NSCAN 

lTlAVeRf3.M).LT.VlN( 1 ♦ ITyPE) ) GO TO 105 
1F( AVER! J. M) .GE *VIN( 7. ITYPE) ) GO TO 110 
lao 

IFl AVER! J.M) .GE.VINC 1 • I TYPE ) • AND • A VER ( J • M ) .L T • V 1 N ( l4l .ITYPE) ) 
IGO 10 115 


fOOOOOl 00 
00000200 
00000250 
OOOOU300 
00000400 
00000600 
00000510 
0000060 0 
♦ Y t O'O’ 0 0 CTT 0 O' - 
00000600 
00000900 
00001000 
00001 1 00 
^069^1200 
00001300 
00001400 

y o-ooT^trtx 

00001600 

O^OQ170Q_ 

00001800 

00001900 

00002100 

00002200 


00002400 

0Q0Q2^P0 

00002600 

00002700 

ooao2»aa- 

00002900 

00003000 


105 1-1 

GU TO 115 
110'T=6 

115 FRAC= { CV INI I4l * ITYPE )-CV INI I .ITYPE) )/C VINC HI .ITYPE) 

HVZNix^xryP€)3 - - 

CV( J.M l^CVINI 1 • ITYPE) 4>FRAC4< AVER! J.M)-V1N( 1* I TYPE )) 

CSD( J.M)-A0SlSDf J.MI4FRAC ) 

e t»f »»Ce N V eW T P A ON C ALI P AAT PO v ol t s t o PHY S tCAL UNtTS^ Few SPA Cg c ru 
C44444EANTH SCAN 6B8 VIEH.USE FOUR DEGREE POLYhCMIAL FOR THERMAL C 

Ctt>44LlNEAB^F0R VI§1BLE_ 

|F<U.GEV2.AN0« J.LE.8V 'GO TO 175 
IFllTYPE.EQ.l) GO TO 170 

XXaiXMP/541 - - 

PU(J.M;^C( 1* 1I)4C(2.II )4CV( J.M)K:(3.11)*CVf J.M)4CV( J.M)4 


00003290 
QLOJOO^OO 
00003400 
00003500 
0 00 0 3600 
00003700 
00003800 
000059 00 
00004000 
QLgU2.Q^iOO 
00004200 
00004300 
- 00004400 
00004500 


1C (4. 1 I )4CV( J.M)4CV< J.M )4CV( J.M) ♦CIS. 1 1 ) 4CVO . M) 4CV< J * M> 4CV1J.MI4 00004600 

SCV< JiM I 0000 4 TO O 

PUSO(3.M)«C(2« 1I)42.04C(3*1I )4CVI J. M) 43. 0*C (4 . II ) #C V( J. M)4C V( J . M ) 400004800 


t4# 0»C( 5. II )«CV< J»M)4CV( J.M) 4CVC J.MI 

pa5or;)Tiri«^5TPa5DTj.)nT«sb(j.M) 

GO TO 175 

iZO-JLaX3^lU^«4)aX2XAX^..Tr«l 904CV4 ) 

PUSDi J .M)as 16.791904CS0( J.M) 

175 CONTINUE 

^ f o a ee 

C44444CONVERT FROM RAW TO CALlSRATEO VOLTAGES FOR OUTPUT CAL STEPS 6 
C44444B8 THERMISTOR 

~ T«0 00 2517 “ITsI .NSCAN ~ - 

lF(AVERCJ.M>.LT«VOUT(l .ITYPE)) 40 TO 205 

lHF-LAV£AXa^MX<#4ML«VOUTC7«XTlVPeil GO TO 2X0 - -- 

00 200 I»1.6 

IFIAVERI J.M)«GE«VOUT( I * I T YPE ) • AND* AVER ( J .M) #LT. VOUT I 14) .ITyPE) ) 

TO 215 — 

200 CONTINUE 

205 I»l . 

COT0"2r5 

210 |s6 

>~.2X8^FAAOaCVOUTCX4X«i:ryPeX^VOUTiX#lTVPEn/( VOUT( 141 .ITYPCI 
l-VOUTC 1* ITYPE) ) 

CVt J.M)«CVOUTC ItlTYPE )4FRAC4CAVERf JtM)*VOUT( 1 « ITYPE I) 


0000 4900 

otSoosooo 

00005100 

00005200 

00005300 

00005400 

0800588 0 

00005600 


00005600 

00005900 


00006100 
00006200 
00000508 ■ 
00006400 

-mmtt 

00006TOO 

00006806 

00006900 

00007000 


C4444< CONVERT FROM CALIBRATED VOLTS TO PHYSICAL UNITS FOR B0 THERMISTOR 00007200 

sssras*- - 

PU(J*N>>0( 1)*0(2)*CV( J*M).OOI*CV<J*M).CV( J»M).0(4).CV( J«N). 00007900 




OR!GU'!AL P' '2 

OF POOR QUALU^ 


09MAR79 14.59,42 - VCJL-JISK06, O S ZBM M 1 . L I H . C N T L 


ICv ( J.M >4C\/ < J «M) 

J f t>t 3 >»ev< i **4> .0^O<4 > ♦CVC J.«> 4CV< J,*t) 

PUSC( J ) = ABSCPU50( J,M ) ) »CSO( J. W) 

250 CONTINUE 
300 HETUNN 

900 FORMAT (IX, 6F12.5) 

EMU 


00007600 

OOOOT700 

00007600 

00007900 

00000000 

00006100 

00006200 
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09HAf</'i 14.59.42 - V0L=0ISK06. DS^= iBMMa.LIB. CNTL 




♦♦bLLiCK DATA FUR CCTINF, 

lo/ie/ra/ 

C#'4'f ♦♦UtVE_ BV M.DtwrRA 

tiLUCK DATA 

IMPLICIT LOGU.AL»l ( Q) 
HfcAL^d ZNAME 

— t uniMuri /TTv T t ffr r m \ jrXTt/TJT 

COMMON /CCT INF/I SC. IES( 

1 ITYPL. NUMES 
COMMJN/CCT InF/ODAT A( 45 
CUMMON/ANALyS/ZNAMEl 20 
CUMMUN/ANACYSyA VEUI 20* 
*PU(20. 10 ) tPUSO (20*10) . 
lVlN(7f2).VGUT(7«2).C(5 

e ttttgA if tJ LA VI g^OTg»t * FUC 

3POFLAV(200 ,5 ) .PUFLSOi 2 

4UriME(6. 10) 
data 1 TVPt/2/"*NUMES/0/ 
DATA IFULSC/0/ 

- UATA^Xy2Sa*«0*19^2108 

42b8*01 9* 19.6024.-1 *905 
4256*263 * 1 9*7513.- 1 *970 

4259*532121 l984ol-3.570 

4256*657* 19* 1720.-1 *333 

A^A(x«ao7*ao.*xLLiw-*i*9de 

4260*529* 19* 73*- 1*76309 
3U/332*ddl7.-15.556. 1*7 

( » A?A -e yiN y O i OOt- . t i 0O 5f 

1 0* 102*1 *056* 

DATA CVOUT/0*006. 0*970 

r a*"^09. 0.969 

DATA QSTR/1314«4>/ 

- X)AIA^ ^MAME/ t^ Ci-AMP* « 

1 • IN CAL 4» * 

2 *E SCAN I • . 


♦ ♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦»♦♦ 444 44 rr 

ANAL YS 

. COMPUTER SCIENCES CORPORATION 

444444444444444444444444 44 4444444 44 


3) • lOUT* I BO*I TH« NSC*NE S(3 ) *NOUT .NBB« 

00) *QSTR< 121 ) 

) 

10)*SD(20*1G)«CV(20« ! 0) *CSO(20* 10 )* 

*10).CVIN(7*2) *CVOUT( 7 *2) • VOFFA.8PA i 
SOf26a*g9T*Mf=ULAn 200* 207 • KPtrtr50t20t 
0 0.5). IFULSC* 1TMP.OI4) . I SC AN * ^SCAN. r 


)*980259*-0*66905£-l *0*1564B£-1 
>.227264.-1 .25476E-2 • 

1 0*2 42066 *-l *376 52E-2* 

, 0 . 22 6 t T9v^-t *263732-*?. 

, 0.6153 78*-‘0.40e59E- I * 

, 0*223598 •- 1 *232 76E-2t 
L 22653 3«-l*28293E-2 • 
»0.64255E-01 •0.46033E-3* 
^0*242i28«-l*3S799E^a« 

. l9l249*-9.3l209E-3/. 

1-0* 191 7/ 

ro2-rr*9eo « 3^*^^. 4 *9er rs • ooe. 

)89* 2* 943 *3* 6 7 7* 4* 64 a *5 *761/ 

.970 *2* 94 7* 3* 954 *4 *929 *5 •924. 
.963.2*937.3.945. %*920. 5*915/ 


UhN cal l«*«iN CAL 2f*«4N CAL 3**^ 
•IN cal 5*.MN cal 6*.*IN CAL 7*. 
•ESCAN 2 •* « E SC AN 3 • . • OUTC ALIJ. 
•OUTC Atr OUTC ML *OUTC AL 3 *• 

•OUTCAL 7«.»0B VIEM • • • BB TH •/ 


4 4 4 ▼ 4^ r 4TO OOTOO 05^ 
00000100 
00000200 
00000300 
44444444400000310 
00000400 
00000500 
00000600 

aOOOTTtYO 

.NTH, 00000600 

00000900 
00001000 
00001 100 
00001299 
00001300 
t BBlA * 0 QQ 014 Q0 

NSET. * 00001600 

0OQ01700 
00001800 
00001900 
09002090 
00002100 

00002200 

00002400 

Q0002500 

00002600 

00002700 

00092900 

00002900 

00003000 


00003200 
000 '3_300 
Oo9J340(> 
00003500 
-09003999 
00003700 
00003600 


00004000 

00004100 


43 P'^COROS PROCESSED 





UrtiG'.N-''’- 

OF PO'- : 


QUALil'V 



09MA«7y 14.59.42 - VCk.= 3ISK06. O S N - Z 8M M 6 .LI 6 . CN TL 


C4444>4>SUB»JJTJNL LINE5 0000020D 

2/22/ 79/ 00000300 

C44^^4SLib«UJTlNt TU SKIP OCSIPFD NJHBER OF LINES ON THE LINE PRIMTEP 00000400 

C ♦♦■♦■♦•♦NxNUMdeH OF LINES TO BE SKIPPED 00000500 

C4 00000600 

C^^^f^tfPlTTEN BY M.BLIiTRA #C0MPUTF:R SCIENCES CGRPOHATIQN 00000700 

C444‘4-44-4-4’4^^4»F4>4>4-4* + *-*4-4--#-4-**-4-*-4'+f4'ff4>f4f>f44>f‘*4f4^4+4-4-*-^»4'4-4'^«-44>ffF4‘4->*-^^00000710 

3t > O WO UT tH C L -frNeMHI _ . _ _ . _ . -- - 00000800 

DU 100 1=1.N 00000900 

HPITLi 6*900) OOOOiOOO 

lOO CUNt I NOE 00001 1 00 

900 FOkMATIlX) 00001200 

U&rTOUM 00001300 

LND 00001400 


PTOC8SSCO 





m 



- VOL-OISKO?., U b K = Z BM M B . L I B . C N TL 


—£-» » t »»y»0000(M1>'0 

FOP PPOOPAM MDPbIM 00000200 

CF>FF> 2/22/79/ 00000300 

PPOCRAM MfAl^b CALIBRATION DATA FRLM A C C T-R U . PR 00 J CF D BY MOP. 00000400 
C^^t^-^AND ^jLNERATtS CLRl*^£^' ::«Mit: D I ATE QUANTITIES C POLYNO»<IALS FOR OOOOObOO 

C4*4>«>#CliNVLK TiNQ RAtf COUNTS TO CALiaf^ATEC X N D 1 CE S. UU TPO T THUS GENERATED 00000600 
COMPARED WITH THE OUTPUT FROM MDP FOR EACH CALIBRATION SET. 00000700 

C4>AF4A SUMMARY IS GLNLRATFO IN THE END, OOOOOBOO 


C 4FF I TTLN by N,UEiiTHA .COMPUTER SCIENCES CORPORATION 

IMPLICIT REALa6(A-H.D 1) 

INTLI.LRA2 COUNT 

LOWiCAL * i aGODD.UT YPE i ,OT YPE 2 
REAL *4 DFr IN I . OF M I N 2 , OFM A X I .DFMAX2 

COMMON/VALU 1 -/SCINI I7).SCIN2(7).SC0UTII7) .SCOuT2C 7 I .EC (3 ) . SCB0R I • 

1 s c 3C n 3C sr 3c g ♦ 3C pP3-reop .g . tfty r^vw3 » -. — 

2 ALPHA 1 (4 ) • ALPHA2 <4 I . ALPHA3( 4 ) • ALPHA4 <4 I .BELT A1 (4 ) . 

3DELTA2 (4 I .Ci2) .EOBRlf ESC I .EdER 2 .E SC2 » TBB3 » TBP , T0 J 1 , T002 , VQFF , 
4tltrAif 4) •BETA2(4 K Vl H 7) « VI2( 7) ,VOl ( 7) . VQ2(7 ) .A( 3 1 «TAUI (4) . TAU2I 
5»TAU3(4).TAU4(4).MT(3) .SIGMA (4) . E PS I LN ( 4 I . RHO ( 2 I .6(3) «VC(3> .W0P. 
S«NUN«N«ICJUA.»COUNT(40| ^OGOOD 
C0MML>N/STAT/AVE« I < 256 ) .AVER? ( 256 I . SO U 256 I «S02 ( 2 56 ) . 

IDF MINI ( 256 >. DF M I N2 ( 256 ). OF M AX I < 256 1 *OFH^^(2F,e} . I AV. 

1NTEGER42 IF ILL • ISL 
REAL4A const 
L3CICAL41 ODATA 

OIMLNS ION IF ILL(4 I « CONST! 176 ).QOATA( 32) 

LOU^VALENCfc I iFlL^i i ) « CONST i I 75 ) ) 

C 

NAMEL 1 ST/ INPUT/ I SETS. V II • VI2 .VO 1 • V02.A.TAUI • TAU2 .TAU3.TaU4.WT. 


Ns 10 
WSsO. I 
~PW5*{T. 0 
REALX 5 .INPUT ) 

. WAi^i^XNPUXI 
PWS^l . 0-WS 

C444Ft^RtAO 6WRITE HEADER RECORD 

i m tTgt^ i SOO) 

CALL FR£AO(OOATA< 1 )• 1 0 .L • 6250.650 ) 

WHITE! 6.90 1 ) ( OCATAl J ) .J» I .32) 

^ 60 - 
50 WRITE(6.902) 

60 CALL L 1NESI2) 

e»»»"t» w e A e » writc av a rcM eoNar A w T s 


00001000 
F OOOOllOO 
00001200 
00001300 
ODO94^A00 
00001500 
0OQO16O O 

00001600 
i) 09919370 
4)00002000 
W0J00021>>0 
90002260 
00002300 
00002400 
000 02 500 " 
00002600 
POO 99 TOQ 
00002600 
00002900 

00000000 

00003100 

00003200 

00005500 ■ 

00003400 

0000 35 00 

509^560^ 

00003700 

00003900 

00004000 

0 P D04I 0D 

00004200 

Q0QQ630Q- 

00004400 

00004500 


WRITE(6.aOS) 

CALL FRCAOCCONSTd ).10.L«6250.(70) 

^iiaTEIY.am TFICLm. CONST m.CONSTfl 42). CONST! 166 ) 
(CONST!! ) .1«S6.64) 
iCOHS r 1 13^ Xs A i ) 

(CONST! I ) »I«96. 102 ) 

(CONSTil ) .I-65.67) 

(CO NS T! n i l » 16 5 116 6 3 


WR1TE!6.612) 


00004700 

00004600 

■ - 0000 4 ’900" 

00005000 

00005100 

09605<$0 

00005300 


WRirE!6.816) 

w.':irE!6.aia) 

WR i?C! 6idgO)- 


WfUTE!6.622) (CONST!! )• 1-143 .146) 

WRire(6. 624 ) (CONSrCI I .I-I47.150) 

“ ¥iuTrrT;;^z6T“ i cowsrc 1 1 #i*i5i . i 

WRITC!6.626) (CONST! 1 I .1- )5S« 1571 
— naiTEiA# a30)-XC0NSfil4»Xm4aa^iO4| 

WIIITC!6.632l (CONST!!) .1-162.168) 

WAITE!6.634) ! CONST ! I I • 1- 167. 16«| 

irittTg(6i6 5 6) t c ONsyf ur t -f OO ti y i i 

■0ITEI6.B36I (CONSTIl ).l*t72.174> 

rCONSrn f .IO0.87) .(CONSTCI ).l-107.134l. 
KCONSTIII .I-2.29).!C0NST! 1I.1-66.9S) 


00005500 

00005600 

09905900 

00005600 

Q000890Q 

OOOOSoOS 

00006100 

00006600 

00006300 

00006400 


70 II RITE (6. 904 1 
60 CALL LINCSIS) 
t66 t-L « t 


1*0 


C44444RCAO FI RST REC QRO. I Nl T I AL I SE CALI6RAT10N OUANTITIES 

imcL ND9icD(i;isL) 


l»l4t 


00006600 

00006900 

oooo ? aoo 

00007100 

00007600 

0906T 5 90 

00007400 

00007560 

OOOOTlOt 

00007766 


142 





0^ PGcr^ 


- VtJt. '.> I SK 06 • iJSN= ZeiMMfW t IH« CNTL 


If C .NUT.CiGtMJD) TO ^)0 OOOOrtiOO 

t T f" 00007900 

bC iN M J) -COUNT I I ) OOOOdOOO 

bci ( j ) - COUNT (jfi7) oooot>iuo 

b^OUT I ( J )=COUNT ( OOGOtt^OO 
bcUUlOM J ) =COUNT ( I OOOOaJOO 

iOa cawiiNUt 0000^400 

bCHBW 4 =COUNT ( 16 » 0 0 00^5 0 0 

bCbCl = CQUr I ( I > 00006600 

acUU Hg «COU N f ----- - - — OtXOOOTOO 

bCbC4i = C0UNT C I 7 ) 00006600 

bCubJ= COUNT ( 3i ) 00006900 

1F(N,CQ,1) GO TO ?I0 OOOOVOOO 

200 CALL N OP«tO( I • 1 ^l. I 00009100 

00009200 

SMOOTHING HOUTINT 00009300 

iF(OGUOO) CALL SMOOTH 00009AOO 

C »»»»’» C A LCUL ATL — i H TL WM CO t ATF -OUAHT IT tf^S it ^CLVNCMf AL^ gCt» CONVg^ tOH 00009 ? OtT 

C44«^«'«'IF N HtCQRDS PtiOCFSSEO 00009600 

lF(l«Nt^.N) GU TU 200 00009700 

"2T0 wRIXri 6.906) rSL 00009600 

«MlTa(6.90d) ICALL 00009900 

JiaCJLt 6«^909) OOOIOOOO 

CALL LlNES(l) OOOlOiOO 

■ KlTbl6.9l0)SClNl. SCUU Tl • SC 1 N2 • SC OUT 2 00010200 

r^^5C2^.scBfmir.5troo3.«c.!reRirBTn irBB2.corFsooo lojoo 

00010400 
00010500 
00010600 
00010700 
00010600 
00010900 
000 1 1000 

0001 1200 
0001 1300 
00011400 
00011500 
OOOLIOOO 
0001 1 700 
0001 1800 


call intval 
J = 0 

«>C0MPA4C simulator OUTPUT WITH MOP OUTPUT 
CALL COMPAP 

inFA ACAU.*Ca»X^TS) CO TO 2^0 

ICAL-* ICALL4 1 
GO TO 200 

gao WM I X e 

GO TU 300 

800 FOKMAT (/55X. •♦♦•♦McAOER «EC0W0*A44*> 

EOS F0CTArr/55X. » AAAAMOP SYSTEM CCKST ANTS444 ♦ • ) 

610 FORMAT (/1X.«N=*.I5.5X.*WS=*,F8.4,5X, • KBP = • .F 8 .4 . S X . 

LEiL»A) - 

812 FORMAT (/1X.«V1 t = *.7F10«3) 

814 FORMAT (IX, •VI2=« .7F10. 3) 

M Af ^ — 

F O^IMAT (/ I X . • A= • , 3F I 4 . 7 ) 


WO- • , 


61 9 
020 

824 

828 

830 

eat 


FORMAT (IX, *TAU3s* *4F12 ,4) 

FORMAT ilX» •TAU4^U4F12«4) 

FORMAT 4/lX. • WT»« #3F 10,4) 

FORMAT (/IX, 'SIGMA^ • ,4 ( IPE 1 5 . 5 I ) 
FORM A T ( /I X l • C P S I L OW ^ * 4A (- t Pgt8>-»tt- 


834 FORMAT :/lX. *RHO^*,2F10«S) 

S^a F8S)lATi/}x!»VC=*^3^ll2{ 

840 FORMAT (/IX, *M1 ,M2,M3,M4s* ) 

MA2-F0RMAT liX»2F3S»TI 

900 FORMAT (1X,3222> 

901 FORMAT ( IX, 32A1 I 

99g F ORM A? I IM i • g RR O M-tM-r^ Ae iN O »t C Ai>CR Re^ORO*i — 

904 FORMAT (IX, *ERROR IN READING SYSTEM CONSTANTS RECORD*) 
FORMAT (/55X, ••♦••SCAN LINE A • , I 5 • *4444 * ) 

FORMAT I55X,'* 444 ACALTBA ATI ON SET 4 * • 19, *4444* ) 

FORMAT (IX, *SlMULATOR OUTPUT • > 
i4X^14F9«aA 
FORMAT (IX, IS) 

FORMAT ( IX, *£NO OF FILE*) 

^ ACL FI N AL 


904 

909 


920 

940 

-•4 V 

30 ; 


STOP 

END 


00012000 
00012100 
00012200 
00012300 
00012400 
00012500 
00012600 
000 1 2 TOO 
00012800 

SSSililSS 

00013100 

00013200 

^ 013300 

00013400 

000 15 00 0 

00013600 

00013700 

00013400 

00013900 

90014000 

00014100 

00014200 

00014500’ 

00014400 

09P14S0Q 


404 END OF MEMBER 444 


145 RECORDS PROCESSED 


143 



ORIGINAL FAv.w 
OF POOR QUAL.'^'i 


09HAR7^ 14. 59.4? - VUL =^l) 1 SK 06 . O SN - ZE M M 6 . L 1 6 • CNTL 


*<-S JdHOJTI NE MOPREu 
Z/2?/79 

C4444^KUUr I NE TO READ CCT-RU Gt^NERATED BY MDP.ANO TRANSFER 
C44444CAU ItiR AT !DN DATA FROM L41 ARRAY TO 142 ARRAY. 

C IRECsSCAN LINE COUNTER IN THE CCRRECNT CLIBRATION SET 

C 1SL=ABSULUTE scan line COUNTER 

c 

- c tt - fr»»#-R r T^f4- tHT -M.fjl€WTRA yCONRUTFR -SCIENCE^ COfW>O^AriOW 

C44444*-*- ♦"f 44 ♦ 4 •»- 4 ♦ ♦ ♦ 4 ♦ ♦ 4 4 4 444 44 4 4 4 4 4 44 4 444 4 4 44 4 44 4 4 4444 4444444 

bUoROUTiNE MDPRED( IREC .1 SL) 

IMPLICIT «EAL46( A-*M,0--Z ) 

INTEGERA2 COUNT 

LOG1CALA4 OGOOO.OTYPEl .UT YP€2 - 

REAL A 4 OTM IN I • DFH lN2f OFMA X 1 • OF MAX 2 

CUMMUN/VALUE/SCINl ( 7 ) . SC ^ N2 ( 7 ) . SCOuTl ( 7} .SCOUT2( 7 ) . EC I 3 ) . SC0BR I « 

t-yc^setT^cwR«^#3C“3«iScm^3#e«p-fe0f t .E«»2.eorP3 •irsi'pws. “ 

2Ai>^HAI (4 ) • ALPHA2I4 ) .ALPHA3(4 ) • ALPHA4I4 ) »OELT A1 (4 ) • 

3DtuTA2 (4 ) • C( 2) . EbdR I .ESC 1 .EBBR2 .ESC2. T0e3 .TBP.TPB 1 • T8B2 .VOFF. 
40ETA1 ( 41 . 6 £Ta 2(4). VI 1 ( / ).V12(7).V01I7) *V02<7 I .A< 31 . TAUl (4) . TAU2C 
5. TAJ3I 4) .1404(4) » MT( 3) .SIGMA (4 ) .EPS I LN( 4 ) • RHO 12 ) « E( 3) • VC( 3) • MBP • 

. 6»NUM«N«XCALi.«CGUNi 140 ) »QGQOO 

COMMON /ST AT/ AVER 1 ( 256) « A VER2 ( 256 ) « SO 1 ( 256 ) .502(256) » 

IPFMINI (256) .0FM1N2( 256 ) .OFMAXl ( 256) . OFMA X2 ( 256 ) • lAV. 

-gt)TYPg-t Q T VPg 2t 16-664 ^ 

LUGlCALAl QOATA 
1NTE0ERA2 ISL.NSL 
DIMENSION OOAtA(l304) 
equivalence (NSL.QOATAt 1257) ) 

- Q ^ rO O 0= . T flu F . - 

CALL FREAD(QCATA( 1 ) . I 0 ,L « 626 C . G 250 ) 

C44444TRANSFER CALIBRATION QUANTITIES FROM L*1 ARRAY TO 1*2 ARRAY 

gQU NT t t l= Qf> A T A ( 44 g) - 


COUNT ( 16> = Q0ATA(2I 
COUNT! 17)=QDATA(1074) 
?: 0 UfnT 321 = QClkTM( ‘ 


(6341 

COUNT! 33)=Q0ATA( 1178) 

4X0 _ 

COUNT! J4l )=QOATA( 624 J* 24) 

COUNT! J48)=QDATA(2604J*24 ) 

COU N T ! J »lT» > Q0 A T A fTt44 J» g 4 1 - - 

COUNT! J424 )=QOATA( 0624J*24) 
lOLO CONTINUE 
I SL^NSL 

IF(IREC.GT.O) GO TO 300 
CA44A4TAAN5F^ 7 TEL&METRV VALVES 
EBBI=QDATA( 1240) 

EBP=QOAT A( 1246) 

DO 200 1*1 f3 ^ _ 

^cm = ODATAn2324l*2) 

200 CONTINUE 

QQ - TO n 3 0 0 

C44444MESSAGE FOR I/O ERROR 
250 Ji:EC*IREC4t 

i P At ^g J 

MRITEI6.900I JREC. ICALL 
GO TO 300 

C 44 ^ 4 > 4 MeSSA<TE FOR END OF FTLE “ 

260 »RIT£(6.902) 

CALL. FINAL - — . __ 

STOP 

300 RETURN 

9 00 roR M AMt Xi E RR W I N R gAO INO PeCORf)^ 4 10^ #♦«)•»- C At ISR A T IO N 


I5ET f • .16) 

902 FORMAT (iXt *ENO OF FILE*) 
Fr ;0 


440 t)Ooorw 
00000200 
00000300 
00000400 
OOu^OSOO 
00000510 
00000520 
00000600 
--- t)O 0 oeroo' 

4 00000600 
00000900 
00001000 
00001 1 00 
000012^ 
00001300 
00001400 
--OTorOTTOtr 
C0001600 
OOOi^I 700 
4)00001800 
W000001900 
00002000 
00002100 
00002200 
Ot) 0tI23't) 0 ' 
00002400 
OOQ025_00_ 
00002600 
00002700 
04)^M)2600 
00002900 
0000300 0 
OOuObi DO 
00003200 
. 0 QQ 033 i )0 
00003400 
00003500 

00<T036^ 

00003700 

0 0003600 

00003900 ■ 

00004000 

0POO4100 

00004200 

00004300 

OOOOAAOO 

00004500 

000046g0 

00004600 

0ft00490Q. 

00005000 

00005100 

^^006200 

00005300 

00005400 

— 0000 3 * 1 u tr 

OOOOSt 0 

00^05600 

00005900 

00006000 

00006100 

00006200 

0 0 006300 

00006400 

00006500 

00006600 


*99. £Na OF MEMBEIL **«- 


66 RECORDS PROCESSED ********** *4 A** »***AAi 


J 


09MAR7‘^ 14.59.4? - V0L = DISKC6, 0S^= Z BMMB .L I B. CNTL 


n NE smooth 

2/22/79/ 

C444-.^rouTine to smooth calibration data 

c 

CA^E^^-i^MklTTEN BY M.BEMTR A .CO MPU lEH SCIEKCES CORPORATION 
SJBRUUTINE SMOOTH 

< -NP t_iCIT -R E AL ^ OI A - H ve-^l — - - 

INTE*J£R*2 COUNT 
LOGICAL* 1 QGOUO 

COHMOn/VALUH/SCInI ( 7) . sc IN 2 ( 7) • ScOUTl ( 7) .SCOUT 2 ( 7 ) « 
I bCSCl t SCdbR2tSCSC2*SCB03 .EBP .E8E 1 *£862 • EOFF5 • tiS . P 45 
2AUPEU E I A T ♦ AL^RHA^ 4 ) * ALPI4A3 ( A I ♦ ALPHA4 < A K OELT A 1 1 4 ) . 

3 3ELTA2 (4 ) . C4 2) . EB 0 R I .ESC 1 .EB0R2 .ESC2*TBe3 ,T0P. T0B1 • 

4 3ETA1 ( 4) tBETA2( 41 .VIl(7).VI?C7),VGI47) .V02f 71 .AI 3 ) . 
5» f AU3( 4» tTAU4( 4) t W f f 3 l | -»t<mAt4-> .-e^S-tt-NCA ) .mtOC^T .-»« 

6 .NJM.N 9 ICALL .COUNT! 40 I .QGOOO 
OO 100 J=1.7 

sxriurrJT^^stctjmTi jFr)>TP4S)*sc ink j) 

SCIN2! J)=WS*COUNT( J*1 7 )♦( P4S)*SCIN2( J) 

srnuT EXuT=msACOUNi t J * cpiisi *scout i i j ) 

SCOUT2 (J ) = 45*COUNT( J + 24 > ( PW S ) ♦ SCOUT2! J ) 

100 continue 

a C3C t - W S*C0U N T< T» 3C 3Ct 

SCSC2=»iS*COUNT< 17l*(PliS) *SCSC2 
SCBBRl =ttfS*COUNT< 16) *( P4S1 4SC80R 1 

“5CaBR2 =W 5*ZD UNT { 32T* ( P WS ) ♦ SC B8R 2 
SCBb3= WS*COON’ i 331 *<PWS) ♦SCBB3 

- 

END 




eC(3).SC8BRl, 


oooootoo 
00000200 
00000300 
00000400 
00000500 
00000600 
♦ 00000700 

00000800 

(>^(^00900 

00001000 
00001100 
EC (3 ) . SC8BR I , 00001200 

. OOC01300 

00001406 
TB02 .VOFF. 00001500 

TAUl <4).TAU2(4)00001600 

yr. vet Trap. woo o aoiTOD 

00001600 
*06001900 , 
00002000 ' 
00002100 
00002200 
00002300 
00002400 

(XO00 2S 0 0 

00002600 
0 0i^^7M 
00002600 
00002900 

00002000 

00003100 



ORIGINAL PAGi iP 
:>^ POOR 


09MAR7‘J 14.59.42 - VUL-3ISK06. D S 28M»4B . L I 8. CNTL 




C^^^-f + sUbRUUT INE INTVAE 
+ Z/22/19/ 

C^^<«4->«UJT1NE to generate VARI0U5 INTERMEDIATE OUATITIES E POLVNCJMIALS 
C4-f#-*-*FUH converting RAH COUNTS TO CALIBRATED INDICES. 

C 

J TTEN BY M . BE WTK A ,C O MPU T6 R SCIENCES CCEPORATION 


00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
OOQ00600 
“00000900 
00001 000 
OOOOl 1 00 
00001200 
00001300 


implicit re AC*8( A-H.U-Z) 

INTEGER42 COUNT 

LGoICAL*! QGOOD.QTYPEl .QTYPE2 
REAL* 4 OEM INI .OEM IN 2. DEM AX I ,CEMAX2 

CUMMUN/VALUEySCiHi I 71«SCIN2( 71 .SCOUT U 71 .SCOUT2 4 7 1«EC(31 « 

ISCSCl t SCB8R2. SCSC2. SC B 03 , EBP • EB B 1 .E882 .EOEF S ♦ »S, PUS . 0 0 001500 

2Al.^HA1 <4 ) . ALPHA2C4) , ALPHA3( 4 1 , ALPHA4 ( 4 > • DECT A I (4 } . 0 0 001600 

3 r >t: CT -Ag< » >g C E £■> r EftWl v€5€-l iE8eH^resC2 17863-. TfTP . TOT r.-^pgg . VOPr i QOOO l TOO 

ABET A1 ( 4) .B£TA2( 4 ). V I 1 ( 7) . V 1 2 ( 7 ) » VCl ( 7) .V02C 7) .A(31.TAU1(4).TAU 2(4)0 0001 800 
5. TAU 3( 4) ,TAL4(4) .WT(3) .SIGMA (4) * E PS I LN ( 4 ) , RHO ( 2 | , E ( 31 # VCC 3i *M0P i^OOOQiUJ^^O 
6~.7TOW.Tr.ICXCtr.CCUiTr(40) .OGOGD « - ^tlOO^OO 

COMMON/ST AT/ AVER I ( 256 ) .AVER2 (256 ) • SD 1 ( 256 ) • S02 ( 2 56 ) . 0 0002100 

XI>EiaMl(2^i«IlFMXN2(256).DFMAXl(256) •OFMAX2(256)«lAV« 00002200 

2UTYPE 1(1000) .QTYPE2( 1000) 00002300 

D1 MENS ION VMl ( 4 *7) , VM2 (4 . 7) • VM3 (4 • 7| . VM4 (4*7). VM (4.7) 0 00024 0 0 


€»»■»» ♦ C tt AM fT gC 




C MfRiTE( 6, 900) 

C444t±.CALCUL ATE MATRJCrS FOR OBTAINING COEFFICIENTS OF CUB(C POYN QMI ALS 
CFF*F40ria'NG COUNT as a FUNCfiON OF VOLTAGE FOR INPUT tCUTPUf CALS 
IF( ICALL .NE. i 1 GO TO I 00 

(3) 

CALL MATRIX! VI I tVMl ) 

CALL MATRIX! VOI.VM3) 

-C MM trE( 6r | 90g) 

C WRITE (6. 904) ((VMl(l«J)«J=1.7).l-lt4) 

C MRITE( 6. 908) 

C tfTrrTFTB.^rcrrr (fVM3TT. J).J = 1,7).I=|.4T 

C4FFF4-LALCJL ATE COEFFICIENTS 


c 


CALL MATMUL(VM3. SCOUT 1 « ALPHA3 • 4 • 7 . I ) 
WRITE! 6.906) 

6i96 4 l AL P HA ! 


WR1TE(6.910I 

C WRITEJ 6.904) ALPHA3 _ „ _ 

C444F^C>SLC,JLXrE MiTttlX C COEFFICIENTS FOR CUBIC POLYNOMIAL GIVING 
C444F*V0LTAGe AS A FUNCTION OF COUNTS FOR INPUT CALS 

-CALL lLAiaXXLSCIhLL»VML - - 

CALL MATMUL! VM.VI 1 .8ETA1 .4.7. 1 ) 

C WR1TEI6.912) 

W RITEt 6 l 96 4 > M VW d i J ) f i T l» t - l #4 4 

C444>F*COMPUf£ SPACE CLAMP &BB VIEW VOLTAGES FROM COUNTS 

esClxCUBICC B ET Alt SCSC ^ _ 

EdBJTI«lS/BTCT0EVAiT5ci ) 

WRirE(6.9I6) ESCl.EBBRl 


ory o ro25o o ' 
00002600 
e 000273? Q_ 
00002800 
00002900 
-00003000- 
00003100 
00003200 
000 03 300 
00003400 
00003 500 
0 00^6011 
00003700 
00003200- 
00003900 
00004000 
00 0 0 4 too 
00004200 

00004400 

00004500 

OOOOAOOO 

00004700 

00004600 


0000 4 900 

00005000 

QQ0Q5100 

00005200 
00005300 

OF cuaxx POLYMCmAL TRANSF3RXNG -RAIF-COUNTV 00005400 

C44444TJ CALIBRATED INDICES 0000S5OO 

OELTAl (1 )sA( 1 )4A(2)4BETA1( 1 ) 4A < 3 ) 40ETA1 C 1)40ETA1 ( 1) 00005600 

fr C tz f 44 <g >«A t ei 4 0CTA I ( t ) 4g »04A< 3 ) » B £T »T<| ) 4B CTAI < 1 1 00065760 

OELTAl (3)sA(2)4aETAl (3 )4A(3)*C2«04BETAH 1 ) 40ETA1 ( 3 ) 4BET A1 1 2 ) 4 00005600 

IBETAK 2) ) 000 05900 

DEUrATT4T*AT27»BETAir4 )4A (3I4T2 .D^BETAt Cl 14BETAI ( 4 1 42 

14BETA1 (31) 00006100 

W«lTEI6.9i2^1- B£TAX»0£LTAI aa00620iX 

C44444CHANNEL 2 THERMAL 00006300 

C WRITE! 6t 9201 00006400 

- e 4»»-»» €ALeUL AY C M AT R te C 5 F 0 4 OOTA I N I NO C O CFFIC t tPNT O -C P C U 5tC ROVNOMt AL 3 00006 3 00 


C44444GIVING COUNT AS A FUNCTION OF VCLTAGE FOR INPUT 60UTPUT 
IF( ICALL»NE«U GO TO JJ50 


CALL MATRIX! V02.VN41 

X «air£L6«^9021 - - 

C WRITE (6.9041 ( ( VM2 ( I • J 1 . Js 1 • 7 1 • Is 1 .4 1 

C WRlTE(6.90ei 

-C ^M ITEl OtOO A) ( t -Vt44( i f J I i J « lt f » f f t »4 7~ 


CALS 


C444 .CALCULATE COEFFICIENTS 

ISO CALL MATMUL I VM2.SCIN2. ALPHA2.4. 7. 1 1 
~ CAIX Tf*rWILTVli4.SCOUT2.ALPMA4,4.7.1l 
C WRITEC6.906I 


00006600 
_ 00006700 
5o006SO$ 
00006900 
0 0007000 
00007100 
00007200 

0OOOT 3 O0 

00007400 

—^2251348- 

O^mOTtoCIO^ 

00007700 


146 



JhlGINAL. PAC.b' 59 
JF POOR QUALITY 

09NAW/V 14. 2 - VUL = f> ISK06, DSN= Z0 J • L I a • CNTL 


C WWJTL(6#90 4) Al>^HA2 

~-e ' 

C iTL( 6.90 4) ALPHA 4 

C> + 4*«-^CAlC 0L ATE MATRIX t COEFFICIENTS FOR CUEIC POLYNOMIAL JlVlNS 

C^>#'4'*VU^TA^E AS A FUNCTION OF COUNTS FOR INPUT CALS 
CALL MArRlX(SClN2tVM) 

CALL J4ATMUM VM«V12«aCTA2.4,7. I ) 

C WR1TL(6.912) 

C MR1TL(6«904) ((VM(I»J)«J=1«7),I^1.4) 

C •»»>» co nv e r t - UO TMe RMI-S-TBR COUNTS TO VOLTS USInO LINEAR 

1 NTLRPOL AT ION 

IF (bCd33.LT.SCOUT2( I ) ) GO TO 205 
IF<SCBa3.GE.SCaJT?( 7) ) GO TO 210 
DO 200 1=1.6 

_ -- HLFiSCaa3^^*SC0Ur2( n * AN0.SCU83«LT* SCOUT2 ( !♦ I ) ) GO TO 2 15 

200 CONTINUE 

20 S I=l 

60 TO g>-S - - -- „ 

2:0 1=6 

215 IF< JAS5( SCOUT2I 1^1 )-SCOUT2( 1 n .LT. .001) GO TO 217 

T=T«C=TW2T I + I T-VO^I n T/rSCOUT2( I ♦ I ) -SCOUT2 ( I ) ) 

tbB3=V02( 1 n-FRAC*( SC8B3-SC0UT2C I ) ) 

IiaBX=CUaXClJAUl.EfiB3) 

GO TU 216 

217 »R1T£( 8.942) I CALL 

et& L B OR2* cool C< OCT A e§ S COO Ng l " - - _ . 

tSC2=CJBIC<BETA2.SCSC2 ) 

WRITE(6.922) EBB3 
■' - i1^T£T6.923r ESC2.EBBR2 

CFT-F^T-COMPUTE TELEMETRY VOLTAGE CORRECTION COEFFICIENTS AND ADJUJ 
£L£M£ TR4f VOL.lA<i£S .^SMOOTH BASEPLATE VOLTAGE 
IF(DABS(EC<3)-EC( 1 ) ).LT..001 ) GO TO 218 
C(2) = ( VC«3)-VC< 1)>/IEC(3)-EC< 1) ) 


VBP = CC l|FC(2)VEBP 
VBbl = Cn )♦C(2 )♦EBB t 

VHB2=CT1 r^ci^r*EBBz 

VOFFS=C( 1 )♦€( 2)*EOFFS 
GO ^19 ... 

218 HRl TE( 8.940) I CALL 

219 HR1TE(6.924) C 

WR tTCT 6»9 e6» VC Pt V P B i -f v eo gtVOFF-^ - — 

IFIICALL.EQ.ll PVBP=VBP 
VBP=V8P4VBP4( 1-WBP14PVBP 
TH^SP^VBP 

C44F4>CQHPUTE TEMPERATURES FROM THERMISTOR VOLTAGES ^SMOOTHED BASEPL 

C44AF4VQLIAGE _ - 

TBP=CUB1C( TAU2. VBP ) 

TbB1=CU8IC(TAU3*VBB1 ) 


1F(ICALL«EQ*1) go to 240 

TBB=HT n l4TBB14WT(2)«TaB2FirT(3) 4T6B3FIITT 4PTBB 
l»TaB»TBB 
GO TO 250 

240 TBB»ITBai4THB24iaa3)y3^q - ~ 

^TBB^TBa 
250 CONTiNUE 


TBBR=TBa-CU81C( SIGMA. Tap) 

WRITE(6.928) TBP.TB81 •TBB2.TBB3.Tea.TB8R 

rFT4TTCXnPUTE“R4DIANCE 

RaasEPSlLNd )4EPS1LN( 2 ) 4TBBR FEPS ILN ( 3 ) 4TB8R4TeeP 

3LBBxaaB/4Q£XPCEPSlLN(4l/TaaR)-l ) 

C444F4SMMOTH OFFSET VOLTAGE 

IF! ICALL.EQ.n PVOFFS=VOFFS 


PVQFFS*VOFFS 

VOFFsRHOf 1 |4RH0C2)4V0FFS 
- -- 'nSsRBBXCEBBR^i'VDFFI 

ttRir£C6.936) VOFFS. VOFF.RS.RBB 

C44^t4J2£T£AllIME.XOEFFXClENTS OF PQLYNCMIAL TRANSFORMING RAM COUNT TQ 
C44444CALIBRATE0 INDICES 
BETA«BETA2 ( 1 l♦V0FF 


0ELTA2(1 l«B( 1|4RS4BETA4(B(2)4B(3)*RS4BETA) 
0ELTA2<2|saETA2<2)«RS4Z 

^irrA2C3X«BETA?T3)«RS4Z4RS4RS4BETA2l2)*BETA2 12140(31 
OELTA2(4»«BETA2(4|4RS4Z42.04RS4RS4BETA2( 2)4BETA2(3)4B(3I 


00007800 
-00007900 
00006000 
OOOOblOO 
00008200 
00OOS300 
0 0008400 
00008500 
00008600 
O^WOBTOO 
00006800 
0QQO89O0 
00009000 
00009100 
00009200 
00009300 
00009400 
0-0009309 
00009600 
00r'>9700 
00009900 
00009900 
00010000 
00010100 
00010200 
OOtTtOSOO 
00010400 
OOOI05QO 
00010600 
00010700 
OOOiOBOO 
00010900 
00011000 
-oooi t too 
00011200 

ooSillSo 

0091 1500 

oooxLsao 
0001 1 700 
0001 IbOO 


00012000 
000J2100 
00012200 
ATE 00012300 
00012400 
00012500 
00012600 

o ooigroo - 

00012800 
00012900 
OOOlTOOO 
00013100 
^ .. ^0OL32O0 
00013300 
00013400 

000 133 00 

00013600 

00013700 

00013800 

00013900 

00014000 

00014100 

00014200 

000 143 00 

00014400 

00014500 

0D014600 

00014700 

00014800 

00014900 

00015000 


00015200 

%mmi 

00015500 


147 




09i4AR7'^ l<^.59.4;? “ VOL=0(SKC^f DS K- 26MMd • L I B* CNTL. 


w 


•W1 Tl( 6.918) 

•N<ITt< 6.^38 > be fA^.OfcLT A2 
900 f-UHMAr </lX . *CHANNLL 1 VISIBLE*) 

90c f-UKMAT (//20X. • MATR I X FOR IMPLT CALS(0*VES COUNTS FRCM VOLTS)*) 

904 FORMAT (/7G18.8) 

906 FuRMAT (//) OX . * COLFF IC I ENT S OF CL 6IC POLYNOMIAL FOR INPUT CALS( 
IGIVEa COUNTS FKCM VOLTS)*) 

905 FORMAT (//20X, *MATKIX FOR OUTPUT CALS(OlVES COUNTS FRCM VOLTS)* 
9i0 FUkMAT (// 1 OX , *CJCFF IC lENT S OF CUBIC PCLYNCMIAL FOR OUTPUT CALS 

- Mt»FVES COUHfb FROH VOLTS)*) - - 

912 FORMAT i//20X, * MATR I X FOR INPUT CAL5<GIVES VOLTS FROM COUNTS)*) 

915 FjRMAT(lX,*dETAZ=*.4S14*6.2X.*0ELTAl-*.4G14.6) 

916 FORMAT (/1X.*ESC1-*.F11*4,2X,«E08RI=*.F11,4) 

920 Format (/ 1 X .* c hannel ? thermal*) 

93a format ( ^IX * *BETA 2= *♦4014. 6* 2X, *0 £lT A 2= * *4G14 *6) 

922 -OHM AT (/IX# *LbB3= * *F 1 1 *4 ) 

92 3 F OHM AT ( * F • . 1 9X # * E SC 2- • ,F 1 1 .4 , 2 X . *EBeR2 = * #Fl 1 .4} 

924 FOKMAf #2Ft 1 .4) 

92 6 F JHMAT ( * F * »30X# * VU P= * • F9 • 4 , 2 X , • VBBl = * #F9.4 ,2 X, *VBe2= * #F9*4.2X. 
1 * VdU3= *#F9.4 ) 

925 FOHMAT (Ix *T 6P= • #F9. 2#2X. * Taai= • .F9.2.2X. *TB82=* ,F9#2#2X# • TBB3 = 
l.2,2X# *Td8=* #F9.2#2X# *TBBR=* #F9*2) 

936 FORMAT UX* VOFFS= * #F9*4 ,2X • * VUFF- * #F I 0* 5# 2 X # * «E= * , G1 a*d* 2X ♦ *««a 

1 sj I a • a ) 

9*2 F JRMAT (/IX . * 01 VIOE CHECK FOR B8 THERMISTOR CALCULATION FOR SET 

ira) - . - 

940 FORMAT (/IX# *DI VIDE CiTECK FOR TELEMETRY VALUES CALCULATION FOR* 
1 * SET A* .10) 

return 

END 


00016600 
OOOtSTOO 
00015000 
00015900 
00016000 
00016100 
00016200 
) 00016300 

00016400 
- 90016590 

00016600 
0001670C 
00016000 
00016900 
0001 7000 
0001 71 00 
0001 7200 
^ 0001T300 
0001 7400 
00017500 
* .F900017600 
000X7700 
00017000 
00017900 
A*«00018000 

990tt>ttrO 

» 00018200 
00016300 
00010400 
00010500 


♦♦♦ END UF MEMBER ♦♦♦ 




JRlGIrJAL ?rrz. kJ 
OF POOR QoALifY 


09MA«7‘^ 14.59.42 - VOL=DISK06. DS N= ZBMMB .L I B. CNTL 


FtSJdkUJTlNE MATRIX 
Kf 2/22/79/ 

^♦^IVLN A 7-ELEMLNT VECTOR C THIS ROUTINE WILL GENERA 
K4-PJRPUSE MATRIX J OF SIZE 4X7. FOR A DESCRIPTION OF T 
► AStt APPENDIX O.l UF»«HCMM DATA PROCESSING SPECIFICAT 

F^-WKiTTLN BY M .BEWTRA .COMPUTER SCIENCES CORPORATION 

^ » » » »»»» 

SJBHUJTINE MATRIX! C.O) 

implicit REAL*8( A-H.0-2) 

O IMLNS ION A(4.7I.B( 2«4>.A1(4*4).0(4.7).C(7I 
DJ 5J 12=1.7 
All, 121=1.0 
) CONTINUE 

— -ft=r2T"4 - 

DU 100 12=1.7 

A( ll.I 2>=C(I2)44( I 1-1 ) 

) CONTINUE ' 

) CONTINUE 
- mMlULUx*9Q(UJk 
00 130 11=1.4 
DO 120 12=1 . 7 

) CONTINUE 

’ • srt If 9001 b 

CALL MATMULI A.B.Al .4. 7.4 ) 

- CALX.- MATiNU4Ai.A.OETl 
CALL MATMULlAt . A.0.4.4.7J 
WRITEC6.900) O 


RETURN 

END 


♦♦♦♦ 


♦ F<-f^-l-F4-Ff-f-i-f^«-^»-OOOU0100 

OQ000200 
00000300 
TE a special 00000400 
FE MATRIX 00000500 

(ON».IBM. 00000600 

00000700 

oooooaoo 

♦ ODtr0090 0 

oocoiooo 
00001 1 00 
00001200 
00001300 
00001400 
00001500 
00001500 
-*00001700 

00001 aoo 

00001900 

00002000 

00002100 

00002200 

00002300 

00002400 

00002500 

00002600 

00002700 

00002800 

00002900 

00003000 

00003100 

00003200 

00003300 

00003400 

00003500 


444 END UF MEMBER 444 


35 RECORDS PROCESSED 





^r.nr.nn .rrion 


09M^R 79 14. 59.4^ 


VaL = 0 ISK06, JS^=ZeMM^3•LIB. CNTL 


JJTINE MATMUL 

JUTINF. FOR MATRIX MULTIPLICATION 
C = Ab.HHERE SIZE OF A IS LXM.SIZE OF B IS MXN 

«‘4>4>4>4-aRlTTEN BY M • 0EWTR A .COMPUTER SCIENCES CORPORATION 


00000200 

00000300 

00000400 

00000410 

00000500 

00000600 


5 f-NE- MATt^ULi A.e *C 4t .M, N> 

REAL4B A.B.C 

DIMENSIUN A(L.M) .B( M.N ) .C(L«N| 
OJ 110 1=1 *L 

JJ 100 J=1.N 
Li i.3>=0«0 
IDO CONTINUE 
110 CONTINUE 

a ~ 

WRITE! 6»900)b 
WRITEi 6,_900IC 
WRITE! 6.91 0)L*M.N 
900 FORMAT ( lX«aFl2.2) 

9i0 4^UAIiArilX^3X2J 
DO 130 1=1. L 

Q Q 125 j=i>N 

C(l.J)=C(l.J>^A(l.li)W0(Il.J) 
WRiTE_C6.900)C< 1. J) 

120 CONtlNUe 
125 CONTINUE 
-130 ^UNTlATOF 
RETURN 
END 


‘ ♦♦■•-'►♦♦♦♦-f + + -f4-00000700 

_ - 00000 AOt)' 

0000090Q 
09001000 
00001 1 00 
00001200 
99001300 
00001400 
00001500 

{XOOOT g OO- 

00001700 
DOOOISOO 
00001900 
00002000 
99902 1 09 
00002200 
0Q0Q23Q0 

00002500 

00002690 

00002700 

00002600 

99992990- 

00003000 

00003100 


♦♦♦ END UF MEMBER 


32 RECORDS PROCESSED 





on:G5:’- 1. •'» 

OF POOH QbAL'i iV 


09'4AH7^ 


VUL =r> I SK 06 • OSN=ir0'^MB»Lle.CNTL 


IrUtJKtnrtfNfc -MATfttV-( AWAY OFT > 

IT «hALAd( A-H,U-Z> 

C SEE PAGES 302-303 OF *<0ATA REDUCTION C ERROR ANALYSIS FUR THE 

C PHYSICAL SCIENCCS'*,P,H .OE VI NGTON FOR COMMENTS 

DIMENSION ARRAY (NORDFR .NORDER) « 1 K ( 1 0 ) • JK ( 1 0 i 

10 DtT-1. 

11 uu 1 00 K=1 .NCHDER 
AMAX^O • 

-en ou 30 i «t K »ivewET> _ . . _ 

DU 30 J=K,NORDER 

23 1F(UA0S( AM AX )-CAUS( ARR AY( I » J > )) 24.24,30 

24 AMAX = ARftAY f I , J ) 

1K(K I 

— 

30 continue 

31 IF(AMAX) 41,32.41 

t>fc- T ^v ' 

GO TO 140 
_^4 J_ i = XK(K ) 

nrFjI-O 21.51.4 3 
43 DJ 50 3=1. NORDER 

^VLiiARR AY4X, 34 

ARRAY (K.J)=ARRAY( 1 . J) 

50 ARRAY! I. J)=-SAVE 

-^1 J-3K t K ) - 

IF i J-K J 21 ,61 . 53 
_53 UO 60 1=1. NORDER 

SAVE=ARRAY( I.K) 

ARRAY I 1 ,K ) =ARRAY( 1 • J) 
j6X) ARRA Y ! 1^3X=^»^^AV£ 

61 DO 70 1= I .NORDER 



70 CONTINUE 

71 DO 60 1=1. NORDER 

DXJ ~ffO~3=l . NDRDEfT " 

IF ! X-K I 74 .80. 74 

.34 IF33^1-7S^8IX.^5 

75 ARRAY! I.J|=ARRAY< 1 .J) F ARRA Y! 1 #K ) 4ARR AY ! K , J ) 

80 CONTINUE 

“61 PQ 60 J=r. NOW?CT 

IF!J-K ) 63,90.63 

63 8R^4.tL&t JJ- AK RAY!KiJ>/4MAX .. 

90 CONTINUE 

ARRAY! K.K )rl ./AMAX 

100^ . oe,t^&t*ahax 

101 DO 130 L=l,NORDER 

K=NOROER^41 


IF! I 1 1 1 • 1 1 1 • 105 
105 00 110 1=1, NORDER 

5^VE=4TW AY IT ,KT 
ARRAY! 1,K)=-ARRAY! 1 , J) 

ARRAYiawlaSAVE -- -- 

ill 1=JK(K) 

IF! 1-K I 130,130,113 

■ t - W h- “ OO te 6 - U ^tiN O R OC R 

SAVE=ARRAV!K, J) 

ARRAY! K, JIs-aRRAy! 1 , J ) 

rZO ‘ ARRAY! rrJ4=SAVE - ' - 

130 CONTINUE 

-3AO RETURN - — - -- - — - - 

END 

C N Q OF N C 4 0ew »»» 63^ R E CO R Oa FROCeMCD »444 » »»» 4»44 »» 


OCCCOlOO 
00000200 
00000300 
0000031 0 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
00001 100 
00001200 
00001300 
00001400 
00001500 
~TrO0OI600 
00001700 
QC0O1600 
00001900 
00002000 
00002100 
00002200 
00002300 
-0OOtX24Oa 
00002500 
90002600 
00002700 
00002000 
00002900 
00003000 
00003100 
-ooo03?oa 
00003300 
00003400 
00003500 
00003600 
00003700 
00003600 
00003900 
“-00004000- 
00004100 
.00004200 
00004300 
00004400 
00004500 
00004600 
00004700 


00004900 j 

00005000 

00065100 I 

00005200 

00005300 

00005400 

00005500 


00005700 

00005000 

oooosooo 

00006000 

-00004300 

00006200 


i 



09MAH/^ 14.59#42 


VUL=DISK06, L)S^= 20MMB.LI 0. CNTL 


C^«’<^^<‘SUbNOJTI NE CCMPAW 
^/ 2^/79 

C^4^<' + 4'kUUT 1 SE TO CGMPAWE MOM OUTPUT iilTH SIMULATOR’S OUTPUT 
C 

TTtN UV M.tiLi^lMA *COMPUTER SCIENCES CO^IPORATION 

bUUWUJTiNE CCMPAR 
“ - if4PttCiT KEAL^ei A-K*0-2> 

INTEUER42 COUNT 

LJoICAL* i QGUaO.UTYPF 1 »OT YPE2 

R£AL*4 DPM IN1#DFMIN2»DFMAX1.0FMAX2,0IFF 

EUMMUN/V ALUE/SCINI ( 7 ) . SC I N2 < 7 ) . SCOU T I ( 7 ) .SCOUTai 7 ) . EC (3 J # SCQBP 1 • 
ISCSCl . SCaaP2.SCSc2,SCSe3*E0P,EBE I .£B82,EOFFS.HS*P»iS* 

2AUPHA1 (4 ) . ALPMA2(4 ) .ALPHA3(4 ) , ALPH A4 ( 4 ) . DELT A 1 <4 ) • 

30ELT A2 (4 ) »C( 2) • EB0« 1 , E SC 1 fEOER 2 •£ SC2 # TO03 •TaP.TaBl. TBB2 .VOFF . 

AUtTAl ( 4t^OtT«( 4T*Vtt( 7>,VI2t7> , VOl (7) • V02< 71 .AI 3 r.T AVI C4t.TW2t 

5. TAJ3( 4) • TAU4 ( 4 ) • NT ( 3 ) .SiGMA(4 ) .EPSILN(4 > • RHO ( 2 ) • B< 3) tVC( 3) .•GP» 
6tNJM,N.ICALL.CCJUNT(40) tOGOOO 
CUMMUN/Sl AT/AVERI < 256 I * A V ER2 C 256 I . SD 1 < 25 E) «S02(256) t 
1 UF M IN 1 { 256 ) •OFMlN2( 256) ,0FMAX1 (250 #DFMAX2(256 ) . I AV # 

2UTYPcI 1100 01*OTVPE2( 10 00) 

HEAL44 OUT. XI 

UlMtNSION 0UT(44)*0l(4 ).02M) 

ir wfriT2 oupur ttrcorro - 

CALL FREAO(UUT( 1). 10, L #6260.0250) 

4RITE(6.90I J 


WMITL(6,800I 
4RlTE(6.aiO) 
M4lTL.i6.ai 5) 
W4iTE( 6.625 ) 
MRlTEi 6,835) 


(aUT( 1 ) • I ,8) 

OUTC 9) ,OUT< 10) 

iUUTi 1 ). I ^36.39). (OUT ( I ),I==1I.14) 

(GUTCI ),l:::15,ld),(0UT(l),I = 20.23) 

(OUTCI ),f:s24.27) 

— eri 9 ^^ t mm M-rr-=^2ei367.ouTf ,out<3t t - 

W41TE(6.84 5) (OUT(f), I ^40 ,43 ) . ( 0UT( 1 ) ,1^32.3 5) 

1NJM=0 

iTvpr=o 

RANSEER COEFFICIENTS OF FINAL CUBIC FROM RM4 TO R48 ARRAY 
- . DO so Js: 1 . 6 - 

Dl ( J)=OUTC lOEJ) 

U2( JJ = 0UT(3M'J) 

— 5^o-xwTittmc “ - ■ 

C MR|T£i6,902) 

Ct_FEEECOMPARE TE MPE RATURES 6 VOLTAGES 
IFiOAB'SCOUT(9)-EBBR 1) .Gt« .01 I 
ICALL M£SSAG(OUTi9) •E88R1 .X.INUM. I TYPE. «EBBR1 • ) 

IF i DABSiOUTi iOi-£SCl ) .'T*.0l ) 

ICALL MESSAG(OUTdO) .ESCI.X.INUM.ITYPE.’ESCI *} 

lF(0ABS(UUT(24)-£aBR2) •GT..01) 

t- CALt: M COTAo to u Ti g^i .eooRgryr iNtmrmrpgr^gOTffg’ -•t 

IF (OABSC OUT i 25 )-ESC 2) .GT..01 ) 

ICALL MESSAG(0UT(2$l«ESC2tX.lNUH.ITYPE.«ESC2 *) 

1F(OA8S(OUT( 19i-taB3) .GT« . 1 ) 

ICALL MESSAG(0UTU9) .TBBJ.X.INUM.ITYPE. *T8B3 •) 

lFiOAdSiUUT(2BT-T8P ).GT..4I 
ICALL MESSAG(0UT(26) •TBP,X.1NUN. 1TYPE«*TBP O 

1F( DA8S( OUT! 29 I-T801) «GT. «1 ) 

-«ALt' MC«A^ft)t7rt«^*Yfl»i-rXTtmmrl^YPet«TBBl ♦ - 


c 


IF (OABSi OUT i 30 I-TB02) .GT. .1 ) 

ICALL MESSAG(0UT(30) »TBB2 • X . I NUM . I TYPE • • TBB2 
1 F i 0ABS( OUT i 3 D- VOFP ) . Gr. .01) 

ICALL MESSAG(0UT(31 ) • VOFF « X • I NUM • I TYPE . • VOFF 

CA\ \ L IMESi i ) - -- - - - 

IFiiNUM.GT .0) QTYPEK 1CALLI«1 
IF(INUM.EO.O) MR1TE(6«905> 

— eA Lt- Ll N C B tl i - 


• ) 


INUMxQ 

ITVPE*1 

WftnTE(6.906) 

C^A-AA^COMPARE CALIBRATED 
XAVslAVAt - 
DO too Jsl.256 
XMJ-I 

Rg« C U B I C (iPe L T A t iX ) 


♦♦00000100 

00000200 

00000300 

00000400 

00000500 

00000600 

♦♦00000700 
00000800 

- 0000090(7 
00001000 
00001 100 
00001200 
00001300 
00001400 
00001500 
00001600 

4T00001TOO ' 

M000001600 

00001900 

00002000 

00002100 

00002200 

00002300 

00002400 

- 00002BOO 
00002600 
00002700 
00002800 
00002900 
60003060 
00003100 
00003200 
66603306 
00003400 
OO0O3SOO 
00003600 
00003700 

-60003606 

00003900 

00004000 

- 066 0 4166 
60004200 
00004300 
00004400 
00004500 
00004600 
00004700 
000048 00 

— 66064966 
00005000 
00005100 
00005200 
00005300 
66605400 
00005500 
00005600 

— 6600BT66 ‘ 
00005800 
00005900 
00006000 
00006100 
60606266 
00006300 
00006400 
6B0PBBB6 
00006600 
^7C 


COUNTS FOR CH 1 


IF(X2.LT.O.OIX2»0.0 
IFCX2.GT .ass.oixa^asB.o 
Xl«CU0IC(OltX| 
lFiXl*LT«0.0)Xl30.0 


00006900 
06067000 
00007100 
03007200 
- 0000T300 
00007400 
Q0QQ7S00 
00007600 
00007700 



» # 


original F-' ' 

OF POOR Q-LXsi I 


09>tAR79 l4.bV,42 • VCX-OISK06. I>SN= /0MM fl.L J B. CNTL 


I >3 (XI .OT •r5b.0)Xl-?5b. 0 

UFMiNl ( J )= AMINl (OFM INI < J ) ♦DI FF) 

OF MAX i (J MAHAXl (OF MAX I ( J) ,OlFF) 

A^EH I<J)^AVE«I(JH‘DIFF 
bDl(J)=50t ( J ) ♦OIFFAOIFF 

iF (XI *0 ) (>o ro too 

IF<OABS( X 1-X2 ) . GT* .5) CALL Mb SS AG ( X I . X 2 # X . I NOM . 1 T yPR • ' •} 

130 CONTINUE 

ip t i N U Mstiiy crfy»>PPttCALt >=t 

IF U NUM.EQ *0 ) MMITE (6« <i0 7) 

I NJM^Q 

MfRlT£(6»yiO) 

LFF^FFCUMPAWE CALltiRATEO COUNTS FOH CF 2 
OU 200 3=1 
X = J-l 

X2=CJJIC(OELTA2.X) 

rpyx2^f-.“aiOTx-?=^.-ir “ 

IF<X2,GT,255#0)X2r255, 0 
X A = CUt>IC(D2.X) 

ITiXi .lT.O* 0)X1=0,(5 
IF(Xi •GT. 255*0 )Xi=2 55. 0 

UFMIN2 (J )=AMINK0FMIN2( J) .OIFF) 

OF MAX 2 (J) = AMAXI ( OF MAX2 ( J ) tO I FF > 

A VKirg t jr - M -v e wgf j itofpr 


200 


S02( Jl =S02( JJ fOIFF^OIFF 

1FJ[ DA3SI X 1-X2 ) .GT. . 5) CALL MESS AG< X i ,X2.X »1NUM.I TYPE • • 
CALL MESSAG(X1,X2*X»1NUM, (TYPE. * *) 

CONTINUE 

3F4 INUN*GT*0> O TYP&2T ICALL »= 1 
IF(INUM.EO.O) MPirE(6*912) 

GO TO 300 

GO TO 300 


260 MMlTEi 
800 rOR^AT 
810 FOHMAT 

62b FOHMAT 
835 FOKMAT 

OAO r OX MAT 


1 • TBB3 = 
av5 fLUkMAT 
90 r FONMAT 
902 FONMAT 
FOAmAT 

906 FORMAT 

907 FORMAT 
r Q RM AT 

912 FORMAT 
915 FORMAT 
ISET 

920 FORMAT 
300- RE T URN 
CNO 


6.9201 

f/IX. ' ACP hA3= • .4G14 ,6. 2X. • ALPHA 1 = • .4G14.6) 

(IX. •EB0R1 = *.F11 .4,2X. *ESC1=*.F1 1.4) 

UX* •££XAi^* .4G1 4*6.2X. •0(El.rAl = • ,4GI4*6| 

(IX. *ALPHA4=*.4G14.6.2X. • ALPH A2? • . 4GI4 .6 ) 

4 IX. •EdaR2=» ,F1 I .4.2X. •ESC2a* .FI 1 • 4 »2X • *C= • • 2F 1 1 * 4 ) 

i •Tira?»^.F^.2^Tx. 


••F9.2.2X* •V0FF=«,F10.5I 
(iX. •BETA2= • ._4Gl 4.6 .2X « •0ELTA2= « »4G 14.6 1 
(//55X. * •♦♦♦MOP OUTPUT RECORO^i^# ’ ) 

433X . •♦♦♦♦COMPARISON F CR TEMPERATURES C VOL tAGES^ ♦♦ ♦ • ) 
iJ3X««AA/J4MO TEMPERATURES OR VOLTAGES CUT OF RANGEA«AA«3 
(33X . •♦♦♦♦COMPAR ISON FOR CALI8RATE0 COUNTS FOR CH !♦♦♦♦•) 
(33X.'^#^AN3 calibrated CCUNTS OUT OF RANGE FOR CHI ♦♦♦♦•! 

-FOR -<AL-t flit AfCf> eOUttfS POIf ~ 

(33X.*A^AANO CALieRATEO CCUNTS OUT OF RANGE FCR CH 2AAAA • 1 
(lX.*ERROR IN READING OUTPUT RECORD FOR CALIBRATION 
♦ I6T 

(tX. ‘END OF FILE*) 


OOOU/tiOO 
00007900 
OCOObOOO 
00008 ! 00 
00008200 
00008 JOO 
00008400 
00008500 
00008600 
00008*^00 
00008800 
OOOObVOO 
00009000 
00009100 
00009200 
00009300 
00009400 
00009500 
00009600 
00009700 
00009600 
00009900 
00010000 
OQQlOlOO 
00010200 
oaoro30o- 

00010400 
00010500 
00010600 
00010700 
00010809 
00010900 
00011000 
* crooi 1100 
0001 1200 
000(1300 
0001 1400 
OOOllbOO 
00011600 
0001 1 700 
00011600 
**OD0ll9O(r 
00012000 
00012100 
00012200 
00012300 
00012400 
00012500 
00012600 
-o^tfrTWt- 
00012800 
00012900 
00013000 
00013100 
00013200 
00013300 


eNP O P M g M Sg R ♦*♦ 


-r» ReCORM -PROCESSED 


oono nr r A 




VUL -D I L>K 06 


Ob^^/eMMH.LIB.C^TL 




♦ ♦■♦♦♦FUNCT IQSJ CUBIC 

♦♦♦♦♦ 2/^2/7V 

♦ ♦♦►♦fF JNLT I UN TO tVALUATL A CUBIC PCLVNCMIAL 

A = CUt£FF IC IFN TS OF T Hfc CUci IC -*CLVNCMIAL 
X=VALUt AT MHICH POLVNCMIAL IS TC BE EVALUATED 

FFFFFWhUTTLN BY M .BE«Tt^ A *CUMPUTLR SCIENCES CORPORATION 

REAL FUNCTION CUc5 I C ♦ 8 ( A ♦ X ) 

REAL^a A ( 4 I . X 

CUeiC^ A( 1 )fA(2>4XFA(3)«X4XFA(4)4X4X4X 
Return 

END 


0000001 0 
00000020 
00000030 
00000040 
0000004 1 
0000004 2 
00000050 
OOOOCObO 
OOOOOOTO 
00000080 
ooooooyo 
00000100 
000001 10 
00000120 


• LNU OF '<E'<8ER ♦♦♦ 14 RFC0R05 PROCESSED 



on o r 


09MAk^> 


= r»ISK06. f)SN= ZOMMfl.L IB.CNTL 


»♦»♦♦»»»♦♦»»»»»»»»»»»»»»♦ 

♦ ♦•f ♦♦bUbKUJTlNE MLSSA^j 

♦ Z/?^/ 7 V 

♦ ♦♦►♦♦KUUT iNE TU WKITE MESSAGE IF VALUE DIFFERS FROM SIMULATOR 

F VALUE Sr MURE THAN SET LIMIT 

A-MUP VALUE 
b=MOPSIM VALUE 
C=RAV COUNT! 0-?5S) 

-t: -t "" N U it tJ EM- ^Of- OtTAftf t T I F5 FOR WHICH MW* t MOP^lM OUTPUTS O irPCR BY 

C MERE THAN SET LIMIT 

C J=O.UUANTITV IS A TEMPERATURE OR A VOLTAGE 

C J=I,UUANTiTY Is a CALIQRATEO index 

C NAME=L0GI ACLA I ARRAY CONTAINING NAME OF THE QUANTITY 

Caaa>a 

CFFFFFMRI T TEN BY M • BEW TR A .CO MPU TER SCIENCES CORPORATION 

LFFFFFFFFFFFFFFFFFFFFFFI-FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFfFFfFFFFFFFFF^ 

HfcALAd BtC 
j^UGICAL*! NAMEIB) 

D i TF = B -A 

IFiJ.EQ.I) GO TO 100 

CA>A^AAMESSAG£ FOit TEMPERATURES E VOLTAGES 
IF(A.EQ.O.O) GO TO 200 
MRlTEI 6t90 0) N AME • A • B * 0 IF F 

GO TU 200 

CFFAAFMESSAGE FUR CALIBRATED COUNTS 
100 WA1T£(6.910> C.A.a.OlFF 
I = IF1 

^00 K£ Turn 

900 FORMAT ( I X. 6A 1 t *MOP VAL UE= • #F 1 2. 4 * 2X . • SI M VAL UE= • , F I 2 . 4» 2X t • O IFF = 

1 * *F 1 2. 4) 

910 f Q HM AT t-^X-t-* R T»W C O U NTS HMOP- VALUe* • • Pt 2* 2 • 2X tM“VAttrCs^ 

lFi2.2t2X,*DlFFr«,Fl2.2) 

END 


35 RECORDS PROCESSED 



mm 


lA.5Vi.4i 


or 


- VLA =.) I 5K C6. t>5N=20MMti.l I H.LNTL 


C ♦“♦♦ ♦ « bUbK J J r I NL PINAL 
C4+PP4 iO/e//d/ 

C444 ♦ f jUbW J J T I NE TU GENiMA^e 
CAPPPPt. bMULAfOrt OUTPUT 
C 

CPPPPPAMITTlN L3Y M.OP»T«A#CO 

bWbKOt/MNt FtfYAt. 

IMPLICIT Rt AL •«( A-H,0~ 
lNTtv»E«*? CUJNT 
LJolCALAl (JGOUD .OTYPE I 
^tAL44 DFM IN I ♦ OFMI N;?tO 
CUMMUN/VACUe/SCiNl I 7) ♦ 
laCbCi • 5CaBR2.SCSC2.SCe 
2 ALPHA 1 (4 I • ALPHA2 (4 ) • AL 
sirrtrt Art 4 7 • et ? rwjK t . c 
4bcT AI ( 4) •ae:TA2( 4). Vll c 

5. r AUJ( 4> • 4) .WT (3) 

6. NUM.N .t CALL .COUNT ( 40 I 
COMMON /S TAT/ AVER 1(256) 

XUFMiHi (2561 •OFMlN2( 256 
20r YPE 1 ( I 00 0 ) .QTYPE2( 10 

C44PP4Llbr calibration sets 

■W tT g< 6 * 1»00 ) — -- 

I NUM=0 

DO 100 1=^ 1 • ICALL 

1P-I0TyPEi( n.FQ.O) GO 
«R1 TE ( 6. 91 0 ) 1 

i^UM^lNUMP X 
CONT INUE 

1NUM= XNUM4 lOO/I AV 
• •4^'TC t 6 1 92 0 1 tNUM ' 

1 NUM=0 

»RLLtl*j930) 

C444P4L 1ST XAL I0RATION SETS 
OU 200 1= 1. ICALL 

iFiaTVPE2( il«.£0«01 GO 
tiRlTE(6.910J 1 
1NUM=INUM41 

t tfo cowrtwof * 

INUM^INUMA 100/1 AV 
«>I1TE(6»920> INUM 
HRirE(6,9401 
«R1TE(6.950) 

caaaaacalxucate AVCRAMS £ 
C4444«>IN01CES FOR ALL SETS 
DO 300 1:= 1.256 




SUMMARY CF COMPARISON BETAtEN MOP OU T PU 1 


MPUTER SC It NCES CORPORATION 

n 

.QTYPE 2 
FMAAl .OEMAX2 

SC IN2< 7) • SCOUTI ( 71 ,SCOUT2( 7 I • EC 4 3 1 . SC0BR 1 • 
B3.E0P.ERE1 .EBB2 .E0FFS.4S.P4S. 

PHA3(4 1 , ALPHA4 (4 ) .DELT Al (4 ) . 

SC t .C5C2.T083 .TBP. TBOl ♦ TOB^.VOrr. 

71.VI2471.V01 47) • V02 ( 7 ) .A43I.TAU1 44) ,1402 4 
tSl UMA4 4 ) .EPS 1LN44 1 «RHO( 2) • 64 2 1 . VC4 3) .WBP, 
.OGOUO 

•AVER2( ?56 ) . SOI ( 256) «S02 (2561 . 

)*DFMAX 14 2561 • OF MA X2 ( ^56 1 • X AV • 

001 

TO BE CHECKED TOR TEMPERATURES C VOLT»<v«"5 


TO 100 


100 


TO BE CHECKED FOR CALieRATEO INDICES 
TO 200 


S*0« FOR THE differences IN CALIBRATEO 


300 


SD14I1*(SD1( 1)-1AV4AVER|( I14AVER14 I) l/dAV-l 1 

SOI(I) >DSORT(S01(t) 1 

K*I-1 

ItRl TEC 6.960) K.OFMlNH 1 1 .DFMAXl ( I ) .AVERl 4 I ) • SO t 4 I 1 
COAiTiMUC 
MHITLC 6.9701 
«RITE(6.9501 
50 I * t l 25 6 


400 

900 

910 
92 0 
930 


0000000 7 
00000100 
00000200 
00000250 
00000260 
00000270 
♦P000002BO 
00000 3 00 
OOU 004 00 
00000500 
00000600 
00000700 
00000600 
00000900 
00001000 
00001 too 

4100001200 
M00900130Q 
00001 400 
00001 500 
00001600 
00001 700 
00001710 
5^0001 800 
00001900 
00092000 
00002 1 00 
00002200 
00002300 
00002400 
00002450 
-00002500 
00002600 
00002700 
00002750 
J0002800 
00602900 
00003000 
00003100 
— 0000 320 0 
J0003250 
00003300 
00003400 
00003500 
00003560 
00003560 
00003600 
0O0O3TOO 
00003500 
00003900 
00004000 
00004100 
09004200 
00004300 
00004400 
— 0000 4 900 


AVER24 I1«AVER24I1/IAV 00004600 

umm 

K-I«l 00004900 

naATEiO.MOl K»OFMXN2( ll*OFMAX2Ul.AVCR2(Xl«SOaU3 OOOOIMIOO 

CONTINUE 00005100 

FORMAT (////20X.«4444CAL1BRATION SETS TO BE CHECKED FOR* • 00005200 

tCWF ERR rdReS R ND VO L TR9E549O9*0- - 0 0 009 5 00 

FUNMAT (IX. 151 00005400 

FORMAT C/1X.I5.* % SETS LISTED ABOVE • I 90999900 

FORMAT l////20Xt *4444CALISRATI0N SETS TO BE CHECKED FOR*. OOOOSOOO 

1* CALIBRATED I N01CES44 44 • 1 00005700 

F3IUIAT<////20X« «4044SUMIIARy OF OIFFRENCKS BETOEEN SIMULATOR*. OOOOBBOO 

1* AND MOP CALIBRATED INDICES FQR CM 14444*1 00005900 

950 FORMAT (/IX. *RA« COUNT • .4X •* Ml Nl MUM* .4X. • MAXI MUM* .4X. • AVERAGE* • 00006000 

14 X1 »9 | P | * f ODOB BI OB 

960 FURMAT(/1X.13.10X.F7.2.3(4X.F7«211 00006200 

970 FORMAT (////20X.*4444SUMMARV OF DIFFRENCES BETOEEN SIMULATOR*. Q00OB3OO 

I* And MOP CALIBRATED INDICES FOR CH 24444*1 00006400 

RETURN 0OOO6SOO 


156 


k « m 


r: c : ;s 

OF POOH 

09MAH^y 14.S9.4? - V(X~l>ISK06* 0 S K= Z PMMB .LI R • CN T L 
L*^ J 

♦ tML> Ut f4RMdLM ♦*♦ Tti PTCUPOS PROCESSED ♦ 


J 000O6 JU 






.)^f:G;v.!AL p;.r: 

'>F PGCH QUaLIW 


09MAR79 14.59.42 - VUL=OISK06» O S N= Z BMM 0 . I B . CNTL 


■ f 4^+ ♦ ♦ ♦ f* 4 + 4 ♦ + f (TO O^H Q rOU“ 

C^>*4-4'bLaC< DATA FDR COMMON 3LJCKS VALUE & 5TA f 00000200 

2/22/79 00000300 

C 00000400 

C4-F^4-41irU TTEN tiY M.aEiiTRA. CCMPUTE., SCIENCES CO«PORATlQN 00000500 

t44A*-444'F4'4-*A4‘FFA^^4 4 44-4 44-4-4'»4‘4^4-4-4-4'4' 4> F 4> 4 4'4>4- <44> ^4- 4- 4- 4^ F 4F 4-4-t^ 44- 4-4- ♦ 4 4 4-4*4'4* 4-4‘4' OOOOO&OO 
bLJi^KOATA 00000700 

IMPLICIT REAL*B( A-H.U-Z) 00000800 

mretifcyFrg- co u nt - — - > . - — - 'OTTO D0 9tro~ 

LUUICAL4I QGOOD.QTYPEl .QFYPE2 00001000 

REAL44 0FM1N1*0FMIN2*0FMAXI ,DFMAX2 00001100 

CUMMON/VALUe/SCINl ( 7 ) • SC I N2f 7 ) , SCOUT 1 (7) ,SC0UT2( 7 ) • EC ( 3 ) » SC60R I • 00 001200 

ISCSCl f SCa0R2,SCSC2,SC0 03*EBP,E0El , E 802 *EOFFS t ^«S » PlS * 0 0001 3C 0 

aAvPHAM4T^-ALPHA2441«At -’HAS! 4 > « ALPHA4 <4 ) , OEl T A U 4 1 » _ 

30ELTA2I4 ).C( 2) *EBaR I , E SC 1 • E8 0R 2 ,E EC2 . T883 .TBP * T00 1 • T6B2 •VOFF. 0 0 001500 

4bET A1 ( 4) ,bETA2 (4 J • VI 1 (7)*VI2(7),V01(7) • V02(7) ,A( 3) .TAUl (4 ),TAU 2(4400001600 

3 4 TAU3 ( 4»-TT A04r4 » , IT7^3) rS^tJWA (4t CgPSlLN(4 : » RHQt^ V^t STTVC f 3 ) t WB P f WO OOOO 1 7 0 0 

6«.4UM.Nt ICALL tCCUNT(40) ,00000 0 000180 0 

C QMMjJN /S TAT/AVeR 1 ( 256 J . AVER2 ( 256 ) ■ SD 1 ( 256) , SD2 ( 256 J , _ 00001900 

lOFMINl (256 ) ,0FMIN2( 256 ) ,OFMAXl ( 256) •0FMAX2(256) * I AV • 00002000 

2UFYPE1 I I 00 0) ,QTYPE2( 10 00) 00002100 

DATA N / 1 0/ » WS/ . 1/ - _ - , 000 021 1 0 

data V 11 ,V1 2*V01 • V02/0 ,001 , 1 •0 03*1.962 .2 .986 *3 .96 3 • 4 • 98 1 » 5. 958* 000022 00 

10. 102, 1.058, 1.969* 2.94 3* 3 . 87 7* 4 .848 , 5 • 78 I *0.006 • 0. 970 * 1 .9 70* 00002300 

22 . 94 7,3. 934 • 4 . V29 *“5 .924*0 *009* CTi 96 9 •“!”• 96 3 •'2". 9 37 ,S3'.945 .V2U *3 I5xoo0u240u 
DATA A/-0. 31242500. 43. 2522500. -0. 072828700/. TAUI .TAU2.TAU3.TAU4/ 00002500 
17,-15.55^r I *772. ^0*19 17# £9. 73 17.-15. 556.1 . 7Z2. -0 . 191 7. 0 000^61)0, 

2332.83 17 15,556, 1 . 772 ,- 0 • 1 9 1 7 , 333, 2296 , -1 5. 556 , 1.772,-0.1917/ 00002700 

DATA 4T/2' . 1 105. • 0 790/ , S I GMA /3 • 5309 • -0 . 1 3892 • .26 I 760* 2, -. 2 73940- 4 0 0002800 
ly .-fePSllAiy 0^74^5.1 .90- 3.-3. 125&-6. 1 1. 2S 1 1 59 103/ *R HO/6 *^0096 * - 0^^2209 0 0 2 900 
2/. MBP/0.2/.M0/0 • 1/.8/- 114.7019, 13944. 13, 1 423 8. 1 7 / « VC/ • 1 1 • 2. 51 • 5 • 01 00003000 
3/ 0000c *00 


IOFM1N2/2 564 1.0EIO*^ .OFMAXI /2564- 1 • OE 1 0/ ,0FMAX2/256 4- 1 • OE 1 0/ • 
2AVER1/2564 0.0/, AVER2/2 56 *0.0/, SO I /2564 0.0/f 502/2 56*0.0/. 
“3IA“v7c5/ 

END 

END OF MEMBER *** 37 RECORDS PROCESSED 4 *4** ♦«******«**i 


00003300 

_OJLM3400, 

00003500 

00003600 




f 


^r:g=s.al p.a ; 

■;F POOR Q JALiTY 


09*4 Af4 1^.59.42 - VUL = JISk 06, 0SN= Z0MMB .L I B. CNl L 


♦♦♦♦♦♦♦♦♦♦ + 00000005 

C*'***-^' 2/2^//9/ 00000100 

C 4 ^ .^ + 4 -! 4 AlN FOR PROGRAM CQRECT 00000110 

'^f^-MAlN FUft GENfcRATlNG CALIBRATION LOOKUP TABLES FOR CONVERTING RAW 00000200 
C 4 - 4 '#-*-*luUNTS < 0 - 255 ) TO CALIBRATED INDICES FOR MASTER OUTPUT TABLES. 00000210 

CAAA-* 4 IT Al ;»0 calculates averages G S.D. FOR CALIBRATED INDICES. 00000220 

C 000002 JO 

C 4 ->#F 4 -A^ITTEN by M.BEWTRA .computer SCIENCES CORPORATION 00000240 

"0 0000300 

IMPLIC IT RE AL 48 I A-H.D-Z) 000004 0 0 

1 NTEGLR 42 count 00000500 

L 0 G 1 CAL 41 QGOGO.QBBVI 50 ) 00000600 

CUMMJN/VALUE/SCINl ( 7 ) . SC IN 2 ( 7 ) ♦ SC OUT 1 ( 7 > •SCOUT 2 I 7 I , EC ( 3 ) • SCBBR 1 , 000 00610 

ISCSCT^. SCBBRa^SC SC 2 . SCBB 3 . ESP . EBB I .E 8 B 2 .€OPFS.WS#PWS. 0 S 000620 

2 alpha I ( 4 ) • ALPHA 2 I 4 ) • AL PHA 3 ( 4 ) . ALPH A 4 ( 4 ) • DELT A I ( 4 ) • 000 00630 

3 UELTA 2 ( 4 )»C( 2 ) . EUBR I , E SC I .EBER 2 *E SC 2 , TB 0 3 . TBP * TBB 1 . TB 62 . VOFF , 00 00 064 0 

T-AT t 4 r- f Sr T A 2 ( 4 r. V rrm ^ V l ? C 7 T .vox tr).V 02 C 71 .AC 2 } .TXUX T 4 r.TAUZTA I OOOOTXSSO 
5 .TAU 3 ( 4 ).TAU 4 I 4 )«WT( 3 ) .SI GMAI 4 ) .EPSI LN ( 4 I • RHO ( 2 ) .El 3 ) *VC( 3 ) • WBP. W 000000660 
N.LCALL. COUNT! 40 LfOGOOD OOaOOOrO 

C 00001500 

C 00001600 

TiiAMLLiST/XTaPUTyTSAIP.MSETS^N.WS.NFlLE.MST.SlGMA, VI 1 .VI2.V01 .V0 2. A.OOOOl 700 


IT AUl »T AU2. TAU3. TAU4 »WT «LP SIL N >R HO • B . VC .WEP.WO 
100 ICALL=0 ^ 

READ! 5 f INPUT .END^ 1200) 

WftJTCi^J INPUT) 

PWS=1 • 0-WS 

C44^4>4>4-REA3 FIRST SCAN LINE FOR EACH CHANNEL C INITIALISE CALIBRATION 
C 4444 4UUA HT I T4€S 

105 CALL CCTREOI ISKIP, I ) 

1 = 1 + 1 

rpt-sttur . Q c o o o) g o -T O t 05 - " 

DO I 10 J=l *7 

SCINU J)=C0UNT1J+1 L 

SC'TN2( Jj=COUNTfl7 + J) 

SCOUT I CJ ) = C0UNT(J + 8) 

SCOU T aXUO^CaUNT^LU+2Al^ _ - - 

110 CONTINUE 

SCbBHl=CrjNT( 16) 

3CS C l- CO U NT< t > 

SCBBR2=COUNT( 32) 

_ SC SC2 = COUNT UZJ _ - 

SCBB3=CbUNf(33 ) 

GBBVl 1 )=COUNT(32) 

L.OQO-FQR NUMBER 
DO 1000 K=1»MSETS 
ICALL^ ICALL+l 


OF SETS OF CALIBRATION OESIR^O 


C+++++READ NEXT SCAN LINE FOR 
200 CALL CCTREOC ISKIP. I ) 

T“=I + i 

QBBVd )=C0UNT(32) 

DATA if: LlNe TS OOOO 
IFIQGOOD) CALL SMOOTH 
IFII.NE.NJ GQ TO 200 


00001600 
00 001 900 
"OTMT0ZBOO ' 
00002100 
OOOOZZQO 
00002300 
00002500 
00002600 
00002700 
00002800 
"TTOOTOODO 
00003000 
00003100 
00003200 
00003300 
B000 3 4a 0 
00003500 
00003600 
00 0 03 700 " 
00003800 
Q.a0-Q[3900,_ 
00004000 
00004010 
00084100 
00004200 
0 0004300 
000043 1 0" 
0000440^ 
00004A^C 
00004500 
00004510 
00004600- j 
00004700 
00004 BOO 




«RirE<6<910)SCSCl»SCB8Rl «SCSC2«SCBBR2»SCBB3.£C«EBP«EBS1 •EB02«EOFFSOOOO5OOO 

♦ ♦♦♦♦calculate INIERMEOIATE QUANTITIES G POLYNOMIALS FOR CONVERSION OOOOSLOO. 

♦♦♦♦♦uneN N^SCAN LINE^ARE SMdOTMEO 00005150 

CALL INTVAL 00005200 

GAL^BTRATEO ANO ICES « AVER AGES A S.O« FOR THEM — — OOOOEBOO 

CALL COMVRT(MS£rS*MST. ISKIP*QB8V) 00005400 

|s0 00005500 


— eO W TI N U g 

C^^F^^POSITION TAPE TO BEGINNING OF FILE 
C^+A^FARE CALIBRATED 
^CaCL REMlNOClOl 
call POSNI 1 t 10»NF1LE> 

ra 100 

900 FORMAT (/////) 

910 FORMAMI tX» 14F9*2) ) 

f g O P OR M A T Cr i 


WHEN OESIREO NUMBER OF SETS 


1200 


STOP 

END 


00 00580 0 

00005650 

.00005052 

00005700 

00005800 

00008900 

00006000 

00006100 

0000 82 00 

00006300 

00006400 


ll 

i 

i 

f 

‘t 


EMO OF MEMBER *** 


7S RECORDS PROCESSED 


159 




m « 



09MAK7S# 14.5V.4 2 


:'jf P'J ... V -‘ ' ^ 


- VOL = DISK06, DSN = 2BMMH.L I B. CNTI- 


C+<'^4'*’bUeHUUTlNE CCTREO C0000200 

C + f-K'-*' 2/22/7V/ OOOOOJOO 

C#^<-^4-KUUT INE TO WE AO WECOWOS FROM PREPROCESSOR CC T C TRANSFER DATA FROM00000400 
CFF^^-4-l PGICAL4 I ARRAY TO Z*2 ARRAY 00000500 

C 1S*<.1P= NUMBER OF RECOROS TO BE SKIPPED BEFORE PROCESSING 00000510 

C lRtC=oCAN LINE COUNTER IN A CALIBRATION SET 00000520 

^ 00000600 

TTe^ BY M.BfcWTRA*CO«PUT€K SCIENCES CORPORATION 'OCKTOOrOO 

+ + + FT + + + E + + + + 000 00 800 

SUBROUTINE CCTREDI ISKI P. IREC ) 00000900 

IMPLICIT REALA8( A-H.O-Z) 00001000 

1NTE'jERA 2 COUNT OOOOllOO 

LUoICALAI QOATA(4bOO) •OGOOO 00001200 

COMMUN/V ALUe/SCiNl ( 7 ) . SC I N 2 ( 7 > . SC OU T 1 ( 7 ) ,SC0UT2( 7 1 ,ECC3) . SC0BR 1 . 0 000130 0 

I ^CSCl r SCJbR2.SCSC2.SCQ03.EOP.EBei .E 802 . EOFFS . US . P AS , 0000140 0 

2AC^A-lt4-r.ACRnA2t4>.ALPMA3(4).ALPMA4(4r.DELTAl(4) . ' 0X1001500 

3UELTA2 (4 ) • C( 2) .EbtiR I . G SC 1 * E0BR2 . E SC2. T 0B 3 . T0P . T8 8 1 . TB02 .VOFF . 000016DO 

40ET A1 (4),0ETA2(4).VIH 7),VI2(7).V0l(7) . V02I7 > » A( 31 .TAUl 14 1 • T AU2 1 4J 0 0001 700 
5, TAJ3( 4) . T AU4I 4 1. MT( 3) .SIGMA (4 ) .FPSI LM 4 ) .RHQI2 ) « 6< 3) . VC( 3) . ABP . i^OO 000 1 800 


&0 


6.NUMfN.lCALL.CCUNT(40) .QGOOO 
UGOBU-^TRUE. 

CFFFFFWEAU REC3RDS TO 0E SKIPPED 

IF< ICALL .EQ.O. AND. IREC .EQ ,0) GC TO 20 

GtT~Tt3-40^ 

20 UO 30 1= 1 , ISK IP 

call FREAD (QCATAC 1 ) . 10 .LEN. 63 0, 630) 

30 CONTINUE 

CFFFFFREAD a pair of records one for EACH CHANNEL 
40 DU 100 K=l«2 

CALL FRE AO (GOAT A( 1 ) , I 0 ,LE N , 66 00 . 66 1 0 ) 

I FI MOO (K .2 ) .ECl.O ) GO TO 65 
C’rYYFf'fRAttlyFER Pm5Arn.^T TO !A2 ARRAY FOR CM 1 
COUNT! I)=QDATA( 3326) 

DO 50 J=1 , 7 

COUNf r JFl )=QDATA(21 98F JA24) 

COUNT! JF8}=Q0aTA( 2750F U*24) 

CUA.TTNUE 
COUNT! 16) = Q0ATA( 16701 
GO TO 100 

CFFFFFTRANSFER from L*l TO 142 ARRAY FOR CM 2 
-- - -COUNT 117i=Q£ATA!3326) 

DU 70 J=l,7 

COUNT! 17fJ)=QCATA!2198fJ424) 

CUUNT !^4 FU )^(MTA! 2 750 FU4 2A > 

CUNT INUE 

COUNT! 32)=Q0ATA! 16701 

CP UN T t 3 3 ) ■QD A T A ( 3e T 8l 

CFFFFFTRANSFER 7 TELEMETRY VALUES 
00^60 J=l.7 

CUUNT! 33fj |=00ATAT39J2FJ42) 

60 CONTINUE 
- 4CU-COI4T4A*ue - 

E0B1=COUNT !37l 
£OB2=COUNT!36 J 

eOF ^ 3» e OU N T 1 3 ^ 1 - 

EBPsCOUNT! 40) 

OO 120 l=lf3 
EC!I yiCdUNTT33^4l) 

120 CONTINUE 

4U-ro 200 

cfffffmessage for end of file 

600 «RirE!6.900l 

a o T O te o - . 

C4FFFFMESSAGE FOR I/O ERROR 


70 


640 


900 

910 

180 

-*oo- 


UGOOO=.^AL5^« 
GJ TO 100 
FORMAT (IX* tend 
FORMAT !1X» M/O 
STOP 

we r uM w 


OF FILE* I 
ERROR • ) 


END 

9*9 £.40 OF MEMBER 999 


00001900 
00002000 
00002100 
00002200 
"t)000Z3OO 
00002400 
00002500 
00002600 
00002700 
00002800 
00002900 
00003000 
“^00003100 
00003200 
00003300 
00003400 
00003500 
00003600 
00003700 
000 03800 
00003900* 
00004000 
00004100 
00004200 
00004300 
00004400 
00004500 
00004600 
-O O eXOTTOO 
00004600 
0QQO49OQ 
00005000 
00005100 
9999&200 
00005300 
00005400 
■“ 00009900 
00005600 
00005700 
00005000 
00005900 
90006909 
00006100 
00006200 
99906300- 
00006400 
00006500 
00006600 
00006700 
00006800 
00006900 
00007000 
"090orro9-^ 
00007200 


74 RECORDS PROCESSED 99999999999999999999999999999999 


160 



nonrionm nrinr^ 


t* t^ 


POOR QUALlTi 


09MAR^V 14.59.42 - VOL=OI5K06» DSN- 2 E . t I B. CNTL 




♦ ♦♦♦4-bUokJUT I NE CUNVRT 

2/22/79/ 

♦ SUBROUTINE TO CONVERT RAfc COUNTS TO CAUBTRATED INDICES. 

♦ ♦4-4>*ALSu Calculates averages c s.d, for calibrated indices 

HSfcTS=NU4BER OF CALIBRATION SETS TO BE PROCESSED 

MST=FIRST CALIBRATION SET FOR WHICH LOOKUP TABLES TO 6E PRINTED 
ISK1P=NUMBER OF RECORDS SKIPPED BEFORE PROCESSING 

Q P B V ^ c o onr o r m . ac k boo y view -p or channel - . 


00000200 
00000300 
00000400 
00000500 
00000510 
00000520 
00000530 
aooacT54cr 
OOOOObOO 

♦ FF + ^WRITTEN BY M . BE W TR A * C O MPU TER SCIENCES CORPORATION 00000700 

♦ ♦ 4^ ♦•f-H'FF4-++4-fF + F-»-4-+1'00000800 

subroutine CONVRTIMSETS.MST. ISKIP.QBBV) 00000900 

IMPLICIT R€AL4d< A-H.O-Z) OOOOIOOO 

INTEGER42 COUNT OOOOIIOO 

LJG1CAL41 O 1 .NT 1 (25b.200) • Q1NT2( 256.200) .QGOOO.QBBVCSO) 00001200 

L OMMOtr^ AL ug / 5C I Nt C Tn SC tn^ rr» scout l < T) »SC0UT2( 7) .ECt3) .5CBBR1 • 00001300 

ISCSCl • SCB0R2.SCSC2.SCBB3.EBP.E0ei .E0B2.EOFFS .WS.P4S. 00001400 

ZA^PHAl 14 ) , ALPHAS (4 ) » AL PHA 3 ( 4 ) 1 ALPHA4 ( 4 ) • DELT A I ( 4 ) . 00001500 

3DLLT A2 (4 ) .C(2) .EBBRl.ESCl .ECBR2 .E SC2 . TBB3 * T8P . TB B I . TB02 .VOFF , 00001600 

43ETAI ( 4) .BETA2 (4). VI i(7).VI2(7).VQ117) *V02(7 ),A(3).TAt;i<4).TAU2(4)00001700 
S.TAU3i4>.^TAU4(4)«WT(3) .SIGMA <4 ) .EPS1LN<4 ).RHO(2) .BOI.VCO) . W6P « WOOOOO 1 600 


6 .NUH .N . I CALL .COUNT! 40 > .QGOQD 
DIMENS ION AVER V( 256). A VERT (256) . STDD V( 256 ) . STODT ( 256 I 

axwg NS I O N ~mDg x( 2 001 — . _ . 

DATA AVERV/256»0.0/.AVERT/2 56*0.0/. STOOV/256 40.0/ .STDOT/2 5640.0/ 
DATA AVRBBV/O.p/fSTDBBV/O.C/ 

C44F4-4-CGNVERT COUNTS FOR CH 1 
DO 100 1=1 .256 

X=l-1 

X=CUdi CCOELTAl .X) 

1^^.**4 ^ *?*9* 9,_ 

OINTI 1 iTiCALD^X 
C444FFRUNNING SUM FOR AVERAGES 
IFri«LL.E<r.l) GCT TO' 1 00 


C S.O.SKXP THE FIRST SET OF CALIBRATION 


J = X 




AVERVU ) = AVERVtI)FN4X 
STODVC I)=STDDV( I)4N4X4X 

CO W TIN Ug - 

C44FF4CONVERT COUNTS FOR CH 2 

00 _2J3lO _ 

x=I-l 

X=Cuai C(0ELTA2.XI 
IF4X^..^XX^^ - 

IF(X.G£.255.0) X=255. 0 
alNT2( I.1CALL)=X 

C P» 7 T7 WUNNff 1 G SUM row A VgR AC g S f S. O • SK tp - THg 
IFClCALL.EQ.l ) GO TO 2 00 

0=X _ „ _ 

X = J 

AVERT! I ) = A VERT Cl )FN4X 

I4aS T OOT C U»N #X4iX ^ 

200 CONTINUE 

C444F4CUNVERT 0LACKBODY VIEW COUNT 

PO 21 6 i N 

XsQBBVC 1 ) 

X=CU^1C(0£LTA2*X1 

jaX 

Xsj 

■ A VftBBV^ A VRBSVHhX 

SrOBBV=STOBBV4X4X 

CONTINUE 

AV gR A flg S~ 


PTRST 


210 

— e »»»» T C AL e Ut AT g 


e S . P j ^WH g N 


00001900 
00002000 
'00002100 
00002200 
00002300 
00002400 
00002500 
00002600 
00002700 
00002600 
■ 0 0002900- 
00003000 
00003100 
00003200 
00003300 
000034 00-- 
00003500 
00003600 

-00003700^ 

00003800 

QQQJQ3SI0Q 

00004000 

00004100 

09^94290 

00004300 

00004400 

STT OF" CALT P R X TtO N OOPOTPPP 

00004600 

00004700 

00004800 

00004900 

OT^OOSOOa 

00005100 

00005200 

*oopopsptr- 

00005400 

^005500 

UUO05600 

00005700 

00005609 

00005900 

00006000 


C44FFFCAL1BR ATEO 

IFC 1CALL*NE.MSLTS) GO TO 300 

ISCANs CMSETS-I )4N 

DU 250 1^1.256 

AV6RV i i I^AVERV C I 1/ 1 SC AN 

AVERT! I)=AVERTC D/ISCAN 

SrOOVC 1)=DSQRT( (STDDVC I)- ISCAN* AVERVU I4AVER V< 1) )/( 15CAN-I) ) 


00006200 

O0PO63OQ 

00006400 

00006500 

00006600 

00006700 

00006800 


250 CONTINUE 

OSC*lSCANtr . 

AVRBBVsAVRBBV/OSC 

STOBaV«OSQRT( ( STDB8V- J SC4 AVRBBV 4 A VRBBVI/ f USC- 1 ) I 


00007000 

00007100 

00007200 

00007300 
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09HAR7^ I 4 . 59 .42 


VUI_=OISK06. OSN=ZeMM0.Ll B. CNTL 


Cfrl'i-^t-CALC'JL ATE START L S NC NUMBER TOR EACH 5ET OF N i_lNti> CALltJHArtU 



DO 255 I- 1 ,KK 

INUEXC I)=ISKlP/2i^(MST + I-2I^N4^1 
255 CQNTINUE 

TE HEADER CONTAINING LINE NUMBERS 
WRITEi 6*9601 

MRITE(6*965) ( INDEX! I) *1=1 *KK» 

TE calibrated I NDI CES . AVERAGE S 6 5.D. FOR CH 1 

m CTO~ t -1 * g q e 

K = l-1 

MSiItt6i950J K 

«(R I TE( 6.9521 C Q I NT I (I . J > . J =M ST , MSE T S ) 

MftlTE! 6. 955) AVEHV( I ) * SYOOV( 1 ) 

-‘CON'TIW-UE 

ITE header CONTAINS LINE NUMBERS 
WRITE! 6*9601 

WR i Tgr c* 9 6 5r ” t tNorx i rr.i^i .ino 

CALIBRATED I NO IC ES . A VER AGE S 6 S.O. FOR CM 2 
iLQ__2Z_0 1 = 1 1 256 
K=I-l 

WRITE!6*9S0) K 

LaiWT^U^al* J=MST*MSETS) 

WR1TEC6.955) A VER T ( I) , STOOT ! I ) 

270 CONTINUE 

W R| T g f O* 9TO) A WCP Vt STOBBV 

C^4-^«^^RElNir lALl SE VARIABLES 
_j^^QQ. I = i»256 
AVERV! I)=0*0 
AVERT! 1)==0.0 

STOOT! 11=0 .0 
280 CONTINUE 



STOBBV=0*0 

, . _2^0 0 F_fiRM^/ I • y • Ji25 1 5) 

9iJT ^ ORM Af !/ 1 X . T • *2515) 

920 FORMAT C/2X .2515) 

940 FORMAT (2xT25F5l2) 

950 F0RMAT(/1X*ISI 


955 FORMATC*f*»107X«2F8.2I 

960 FQRMAt! //y/yj 

965 FORMAT !8X»20I5I 

970 FORMAT I//IX. ‘AVERAGE BB V IEW= • . F9 • 2 . • S.O •= • . F9 *2 ) 
-^0- RETURN 
E>!0 


OOOO/'AOO 
00007500 
00007600 
0000 T700 
00007600 
00007900 
00006000 
00006100 
00006200 
00006300 
00006400 
00006500 
00006600 
00000700 
00006600 
00008900 
00009000 
00009100 
00009200 
OOQ0930G 
00009400 
00009500 
00009600 
00009700 
00009600 
00009900 
00010000 
OOOlOiOO 
00010200 
00010300 
00010400 
00010500 
00010600 
00010700 
00010800 
00010900 
00011000 
0001 1 1 00 
00011200 
00011300 
00011400 
0001 I^DO 
0001 1600 
00011 700 

0001 laoo 

0001 1900 
00012000 
00012100 


PROCESS EO 






